diff options
Diffstat (limited to 'pod/perlperf.pod')
| -rw-r--r-- | pod/perlperf.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlperf.pod b/pod/perlperf.pod index 260acaba29..d9066ba2f8 100644 --- a/pod/perlperf.pod +++ b/pod/perlperf.pod @@ -318,7 +318,7 @@ report on the contents. my %rep; foreach my $line ( keys %report ) { - foreach my $key ( keys %{ $report{$line} } ) { + foreach my $key ( keys $report{$line}->%* ) { $rep{$key} += $report{$line}{$key}; } } |