diff options
| -rwxr-xr-x | challenge-341/perlboy1967/perl/ch2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-341/perlboy1967/perl/ch2.pl b/challenge-341/perlboy1967/perl/ch2.pl index 6869404cf3..f3dbfcc126 100755 --- a/challenge-341/perlboy1967/perl/ch2.pl +++ b/challenge-341/perlboy1967/perl/ch2.pl @@ -20,7 +20,7 @@ use Test2::V0 qw(-no_srand); use exact 'v5.32', -signatures; sub reversePrefix ($str,$char) { - $str = $char.reverse ($1).$2 if ($str =~ m#^(.*?)$char(.*)#); + return reverse($1).$2 if ($str =~ m#^(.+?$char)(.*)#); return $str; } |