diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-09-26 14:09:36 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-09-26 14:09:36 +0000 |
| commit | c1fae11c2d6ec788e84f95fde8c4eb65ea24f808 (patch) | |
| tree | 1dffaed6c4c0c96f0af482473104d927908f6807 | |
| parent | 9cd795fbe89cbf1801e40200f752696a00d6ea01 (diff) | |
| download | perlweeklychallenge-club-c1fae11c2d6ec788e84f95fde8c4eb65ea24f808.tar.gz perlweeklychallenge-club-c1fae11c2d6ec788e84f95fde8c4eb65ea24f808.tar.bz2 perlweeklychallenge-club-c1fae11c2d6ec788e84f95fde8c4eb65ea24f808.zip | |
Small tweak (silly oversight)
Thanks James Curtis-Smith
| -rwxr-xr-x | challenge-184/perlboy1967/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-184/perlboy1967/perl/ch-1.pl b/challenge-184/perlboy1967/perl/ch-1.pl index a7b3462ea9..220d323dcf 100755 --- a/challenge-184/perlboy1967/perl/ch-1.pl +++ b/challenge-184/perlboy1967/perl/ch-1.pl @@ -27,7 +27,7 @@ use Test::Deep qw(cmp_deeply); sub seqNr (@) { my ($i,@s) = (0,@_); - map { s/^..(.*)/sprintf("%02d$1",$i++)/re; } @s; + map { s/^../sprintf('%02d',$i++)/re; } @s; } |