From 363847ca746fbcbfaf71a94e07cab65836950b54 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sat, 15 Aug 1998 19:55:35 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/ls-2/T.pm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

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$/)
 	    {
-- 
2.47.3