diff options
| author | Luis Mochan <mochan@fis.unam.mx> | 2025-09-07 19:56:37 -0600 |
|---|---|---|
| committer | Luis Mochan <mochan@fis.unam.mx> | 2025-09-07 19:56:37 -0600 |
| commit | f710722f0c0725575f5f77d048c3815090e70f38 (patch) | |
| tree | b569fe7ed319465b27fc0cafedb8811e6c49e693 | |
| parent | 7fc9d00bc648a3047b554bd4a3f5d571333bc771 (diff) | |
| download | perlweeklychallenge-club-f710722f0c0725575f5f77d048c3815090e70f38.tar.gz perlweeklychallenge-club-f710722f0c0725575f5f77d048c3815090e70f38.tar.bz2 perlweeklychallenge-club-f710722f0c0725575f5f77d048c3815090e70f38.zip | |
Fix warn
| -rwxr-xr-x | challenge-338/wlmb/perl/ch-1.pl | 2 | ||||
| -rwxr-xr-x | challenge-338/wlmb/perl/ch-2.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-338/wlmb/perl/ch-1.pl b/challenge-338/wlmb/perl/ch-1.pl index d5eb7efa6e..145bcade82 100755 --- a/challenge-338/wlmb/perl/ch-1.pl +++ b/challenge-338/wlmb/perl/ch-1.pl @@ -15,5 +15,5 @@ die <<~"FIN" unless @ARGV; FIN for(@ARGV){ try{say "$_ -> ", pdl($_)->sumover->max} - catch($e){say $e} + catch($e){warn $e} } diff --git a/challenge-338/wlmb/perl/ch-2.pl b/challenge-338/wlmb/perl/ch-2.pl index f77b352676..248fa4a59b 100755 --- a/challenge-338/wlmb/perl/ch-2.pl +++ b/challenge-338/wlmb/perl/ch-2.pl @@ -21,5 +21,5 @@ for my ($x, $y)(@ARGV){ my $result = ($p-$q(-1:0))->abs->max; say "$x, $y -> ", $result; } - catch($e){ say $e } + catch($e){ warn $e } } |