diff options
| -rwxr-xr-x | challenge-149/mattneleigh/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-149/mattneleigh/perl/ch-2.pl b/challenge-149/mattneleigh/perl/ch-2.pl index 32b9c0f7dc..4bbe2b11c8 100755 --- a/challenge-149/mattneleigh/perl/ch-2.pl +++ b/challenge-149/mattneleigh/perl/ch-2.pl @@ -74,7 +74,8 @@ sub calculate_largest_non_repeating_square_in_base{ ( # Assignment to capture digit string is deliberate ($digit_string = number_to_digit_string($root ** 2, $base)) - =~ m/(.).{0,}\1/ + =~ + m/(.).{0,}\1/ ) ){ # Decrement the root |