*** empty log message ***

diff --git a/tests/ls-2/T.pm b/tests/ls-2/T.pm
index dbb16d4e1a71c4aeb9b078fb0566b7379a390f77..a757cd51996b4758f0ee279c626e9dde912cd77c 100644 (file)
--- a/tests/ls-2/T.pm
+++ b/tests/ls-2/T.pm
@@ -103,7 +103,23 @@ sub run_tests ($$$$$)
            }
 
          my $file_spec = $val;
-         my ($filename, $contents) = each %$file_spec;
+         my ($filename, $contents);
+         if (!ref $io_spec)
+           {
+             ($filename, $contents) = (undef, $io_spec);
+           }
+         elsif (ref $io_spec eq 'HASH')
+           {
+             my $n = keys %$file_spec;
+             die "$program_name: $test_name: $type spec has $n elements --"
+               . " expected 1\n"
+                 if $n != 1;
+             ($filename, $contents) = each %$file_spec;
+           }
+         else
+           {
+             die "$program_name: $test_name: invalid RHS in $type-spec\n"
+           }
 
          if ($type =~ /_FILE$/ || $type =~ /_DATA$/)
            {