diff --git a/eg/svndump_stats.pl b/eg/svndump_stats.pl index ca9497e..57a45da 100644 --- a/eg/svndump_stats.pl +++ b/eg/svndump_stats.pl @@ -11,7 +11,7 @@ my %kind; while ( my $record = $dump->next_record() ) { $type{ $record->type() }++; - $kind{ $record->get_headers()->{'Node-action'} }++ + $kind{ $record->get_header('Node-action') }++ if $record->type() eq 'node'; }