diff options
| -rw-r--r-- | challenge-135/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-135/james-smith/perl/ch-2.pl b/challenge-135/james-smith/perl/ch-2.pl index e0911fe6bd..2442b6abd6 100644 --- a/challenge-135/james-smith/perl/ch-2.pl +++ b/challenge-135/james-smith/perl/ch-2.pl @@ -40,7 +40,7 @@ sub is_sedol { sub is_sedol_compact { return 0if$_[0]!~/^[\dB-HJ-NP-TW-Z]{6}\d$/; my($t,@w)=qw(0 1 9 3 7 1 3 1); - $t+=(/\d/?$_:-55+ord$_)*pop@w for split//,$_[0]; + $t+=(/\d/?$_:-55+ord)*pop@w for split//,$_[0]; $t%10?0:1 } |