Commit 06884e9b authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files

Fix an incompatibility with old Perl versions

parent 9019c01f
......@@ -62,7 +62,7 @@ foreach my $file (@ARGV) {
}
foreach my $object (sort keys %uses) {
for my $m (keys $uses{$object}) {
for my $m (keys %{$uses{$object}}) {
if (defined $defs{$m}) {
print "$object: ", $defs{$m}, "\n";
} elsif (defined($ENV{V}) && $ENV{V} eq "1") {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment