From df897f065e7737cc3b82c36fbbb9d4a7c9510603 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Sun, 22 Aug 2021 10:26:59 +0200
Subject: Avoid unpdl

---
 challenge-126/jo-37/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
 
 
-- 
cgit