aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad S Anwar <Mohammad.Anwar@yahoo.com>2019-10-28 16:59:14 +0000
committerGitHub <noreply@github.com>2019-10-28 16:59:14 +0000
commit0fd7ce4b2b3450ccfdfb5e8bb2e804577c4d7a31 (patch)
tree989af5931e94d8847c13de664e3fb4f962504b54
parent26d254a462d80163049f549ddf7a0f79eb1a9aa6 (diff)
parentd0d0ee686a11878ec3a7615ba6822e5758db8159 (diff)
downloadperlweeklychallenge-club-0fd7ce4b2b3450ccfdfb5e8bb2e804577c4d7a31.tar.gz
perlweeklychallenge-club-0fd7ce4b2b3450ccfdfb5e8bb2e804577c4d7a31.tar.bz2
perlweeklychallenge-club-0fd7ce4b2b3450ccfdfb5e8bb2e804577c4d7a31.zip
Merge pull request #863 from davorg/patch-1
Remove debugging
-rw-r--r--challenge-032/dave-cross/perl5/ch-2.pl1
1 files changed, 0 insertions, 1 deletions
diff --git a/challenge-032/dave-cross/perl5/ch-2.pl b/challenge-032/dave-cross/perl5/ch-2.pl
index 37fbda8759..5c786b2721 100644
--- a/challenge-032/dave-cross/perl5/ch-2.pl
+++ b/challenge-032/dave-cross/perl5/ch-2.pl
@@ -27,7 +27,6 @@ sub text_bar {
}
my ($width) = GetTerminalSize;
- say $width;
my $keylen = max map { length } keys %$data;
my $maxval = max values %$data;