From 037f3f24ff217657e01a30bd4472654a1709cb7a Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Sun, 30 May 2021 19:47:24 +0800
Subject: wk 114, 2 Perl scripts

---
 challenge-114/cheok-yin-fung/perl/ch-2.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'challenge-114')

diff --git a/challenge-114/cheok-yin-fung/perl/ch-2.pl b/challenge-114/cheok-yin-fung/perl/ch-2.pl
index e10b8fe810..b064580101 100644
--- a/challenge-114/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-114/cheok-yin-fung/perl/ch-2.pl
@@ -59,7 +59,8 @@ sub hisb {
     }
 }
 
-sub bin2dec {            #copy from Perl Cookbook
+#copy from "Perl Cookbook", by Tom Christiansen & Nathan Torkington
+sub bin2dec {      
     return unpack("N", pack("B32", substr("0" x 32 . $_[0], -32)));
 }
 
-- 
cgit