From: Jim Meyering <jim@meyering.net>
Date: Sat, 15 Aug 1998 19:55:35 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: FILEUTILS-3_16u~40
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=363847ca746fbcbfaf71a94e07cab65836950b54;p=thirdparty%2Fcoreutils.git

*** empty log message ***
---

diff --git a/tests/ls-2/T.pm b/tests/ls-2/T.pm
index dbb16d4e1a..a757cd5199 100644
--- 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$/)
 	    {