diff options
| -rwxr-xr-x | challenge-098/jo-37/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-098/jo-37/perl/ch-1.pl b/challenge-098/jo-37/perl/ch-1.pl index ac4435d70f..2af4affc21 100755 --- a/challenge-098/jo-37/perl/ch-1.pl +++ b/challenge-098/jo-37/perl/ch-1.pl @@ -51,7 +51,7 @@ EOS binmode STDOUT, ':utf8'; -/^\d+$/ and say readN($a, $_) and next or $a = $_ for @ARGV; +/^\d+$/ and say readN($a, $_) or $a = $_ for @ARGV; ### Implementation |