diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-09-26 16:34:56 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-09-26 16:34:56 +0100 |
| commit | 799ee42402189be29746e7481cd78418406820d1 (patch) | |
| tree | 1300223f2d5c3368fd7f446027255337cd64fea6 | |
| parent | 4d59307475bc26131642e0d19836e8222b086268 (diff) | |
| parent | c1fae11c2d6ec788e84f95fde8c4eb65ea24f808 (diff) | |
| download | perlweeklychallenge-club-799ee42402189be29746e7481cd78418406820d1.tar.gz perlweeklychallenge-club-799ee42402189be29746e7481cd78418406820d1.tar.bz2 perlweeklychallenge-club-799ee42402189be29746e7481cd78418406820d1.zip | |
Merge pull request #6804 from PerlBoy1967/branch-for-challenge-184
Small tweak (silly oversight)
| -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; } |