diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-08-22 11:19:52 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-08-22 11:19:52 +0100 |
| commit | 519599bf29aa898100eef35a59964986b54b2d23 (patch) | |
| tree | b260300dfc056ad83030b396ef78b4a13b7cc701 | |
| parent | ed86aba3173945ac27b43d38aca7bd73b7bc02d0 (diff) | |
| parent | df897f065e7737cc3b82c36fbbb9d4a7c9510603 (diff) | |
| download | perlweeklychallenge-club-519599bf29aa898100eef35a59964986b54b2d23.tar.gz perlweeklychallenge-club-519599bf29aa898100eef35a59964986b54b2d23.tar.bz2 perlweeklychallenge-club-519599bf29aa898100eef35a59964986b54b2d23.zip | |
Merge pull request #4756 from jo-37/contrib
Avoid unpdl
| -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; } |