diff options
| -rw-r--r-- | challenge-056/mark-anderson/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-056/mark-anderson/perl/ch-2.pl b/challenge-056/mark-anderson/perl/ch-2.pl index ac414bb808..29df817687 100644 --- a/challenge-056/mark-anderson/perl/ch-2.pl +++ b/challenge-056/mark-anderson/perl/ch-2.pl @@ -12,7 +12,7 @@ $tree->walk_down ({callback => \&traverse}); say for $tree->draw_ascii_tree->@*; sub traverse { - my($node, $options) = @_; + my $node = shift; unless ($node->daughters) { my @nodes = reverse ($node->name, (map { $_->name } $node->ancestors)); |