diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-04-14 04:53:20 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-04-14 04:53:20 -0600 |
| commit | edb6c293598e7d2afbf34d2ee215bc2a9aee9593 (patch) | |
| tree | a32c48d3c0f8a08b1f87faee22f3325dcc04a68f | |
| parent | 4997e146da939fca9cd7966505e4a047c14e0db8 (diff) | |
| download | perlweeklychallenge-club-edb6c293598e7d2afbf34d2ee215bc2a9aee9593.tar.gz perlweeklychallenge-club-edb6c293598e7d2afbf34d2ee215bc2a9aee9593.tar.bz2 perlweeklychallenge-club-edb6c293598e7d2afbf34d2ee215bc2a9aee9593.zip | |
ch-2.pl
| -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)); |