commit | dd9d8a0cb97df413ab45ec6a87253f7ca34ca8f1 | [log] [tgz] |
---|---|---|
author | Dieter Baron <dillo@nih.at> | Tue Aug 05 23:18:48 2014 +0200 |
committer | Dieter Baron <dillo@nih.at> | Tue Aug 05 23:18:48 2014 +0200 |
tree | 7633a043dbd9c169e95aaafe38c5feb38b37a043 | |
parent | 05940fef31f759c4ceefc1fe52fdd007d28ede10 [diff] |
Fix keys on reference, found by Perl 5.20.
diff --git a/regress/NiHTest.pm b/regress/NiHTest.pm index 295fc64..76b8cd9 100644 --- a/regress/NiHTest.pm +++ b/regress/NiHTest.pm
@@ -482,7 +482,7 @@ @files_got = sort @files_got; my @files_should = (); - for my $file (sort keys $self->{files}) { + for my $file (sort keys %{$self->{files}}) { push @files_should, $file if ($self->{files}->{$file}->{result} || $self->{files}->{$file}->{ignore}); }