diff options
| author | Luis Mochan <mochan@fis.unam.mx> | 2021-12-15 11:59:20 -0600 |
|---|---|---|
| committer | Luis Mochan <mochan@fis.unam.mx> | 2021-12-15 11:59:20 -0600 |
| commit | 1d6f0a2d0806e60cc1351a18c7552fd82ef447c3 (patch) | |
| tree | 08c0564f017081f18d1564a9e7c33ea831065cf3 | |
| parent | 38ec22341cbc08f974963e5fff54f2f2298174a5 (diff) | |
| download | perlweeklychallenge-club-1d6f0a2d0806e60cc1351a18c7552fd82ef447c3.tar.gz perlweeklychallenge-club-1d6f0a2d0806e60cc1351a18c7552fd82ef447c3.tar.bz2 perlweeklychallenge-club-1d6f0a2d0806e60cc1351a18c7552fd82ef447c3.zip | |
Add test for extra chars at end
| -rwxr-xr-x | challenge-143/wlmb/perl/ch-1.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-143/wlmb/perl/ch-1.pl b/challenge-143/wlmb/perl/ch-1.pl index 96c3f72081..e1190540bd 100755 --- a/challenge-143/wlmb/perl/ch-1.pl +++ b/challenge-143/wlmb/perl/ch-1.pl @@ -16,6 +16,7 @@ foreach (@ARGV){ $original_string=$previous=$current=$_; token(); my $result=expression(); + die "Extra characters: $previous\n" if defined $token->[0]; say "$original_string=$result"; } catch { |