diff options
| -rwxr-xr-x | challenge-143/wlmb/perl/ch-1.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-143/wlmb/perl/ch-1.pl b/challenge-143/wlmb/perl/ch-1.pl index e1190540bd..4f0ebd8ec4 100755 --- a/challenge-143/wlmb/perl/ch-1.pl +++ b/challenge-143/wlmb/perl/ch-1.pl @@ -13,14 +13,14 @@ my $current; my $token; foreach (@ARGV){ try { - $original_string=$previous=$current=$_; - token(); - my $result=expression(); - die "Extra characters: $previous\n" if defined $token->[0]; - say "$original_string=$result"; + $original_string=$previous=$current=$_; + token(); + my $result=expression(); + die "Extra characters: $previous\n" if defined $token->[0]; + say "$original_string=$result"; } catch { - warn $_; + warn $_; }; } |