diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-02-10 07:27:35 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-02-10 07:27:35 +0000 |
| commit | d408eaec577491c047c851b2e9a586b62af1acfc (patch) | |
| tree | 9011a406d5f76ad1691718898c1991de53d96560 | |
| parent | 764ae14f048a05b24215e12758b4ba2841afd53a (diff) | |
| parent | 80405987586c08463eb9807a47a30aedf70304fd (diff) | |
| download | perlweeklychallenge-club-d408eaec577491c047c851b2e9a586b62af1acfc.tar.gz perlweeklychallenge-club-d408eaec577491c047c851b2e9a586b62af1acfc.tar.bz2 perlweeklychallenge-club-d408eaec577491c047c851b2e9a586b62af1acfc.zip | |
Merge pull request #3496 from jo-37/contrib
ch-098: simplify cmd-line processing
| -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 |