texinfo/tp/t test_utils.pl

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/11/27 12:58:00

Modified files:
        tp/t           : test_utils.pl 

Log message:
        correctly use only keys of a hash.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_utils.pl?cvsroot=texinfo&r1=1.57&r2=1.58

Patches:
Index: test_utils.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_utils.pl,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- test_utils.pl       24 Nov 2010 00:15:42 -0000      1.57
+++ test_utils.pl       27 Nov 2010 12:57:59 -0000      1.58
@@ -70,7 +70,7 @@
       }
     }
     $been_there->{$root} = 1;
-    foreach my $key (%$root) {
+    foreach my $key (keys(%$root)) {
       next if (!defined($root->{$key}) or !ref($root->{$key})
                or (ref($root->{$key}) ne 'HASH' 
                     and ref($root->{$key}) ne 'ARRAY')