diff options
| -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 { |