diff options
| -rwxr-xr-x | challenge-126/jo-37/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-126/jo-37/perl/ch-2.pl b/challenge-126/jo-37/perl/ch-2.pl index a19efd7e95..b01a53fe32 100755 --- a/challenge-126/jo-37/perl/ch-2.pl +++ b/challenge-126/jo-37/perl/ch-2.pl @@ -62,7 +62,7 @@ sub read_pdl ($fh) { # Print a 2-d piddle containing ascii character codes. sub print_pdl ($p) { - say "@{[map chr, @$_]}" for @{$p->unpdl}; + say "@{[map chr($_->sclr), $_->dog]}" for $p->dog; } |