From df286d0a88b12c8999eb7f1b54d8f15967c913a4 Mon Sep 17 00:00:00 2001 From: Luis Mochan Date: Wed, 15 Dec 2021 12:08:43 -0600 Subject: Untabify --- challenge-143/wlmb/perl/ch-1.pl | 12 ++++++------ 1 file 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 $_; }; } -- cgit