diff options
| -rwxr-xr-x | challenge-347/robbie-hatley/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-347/robbie-hatley/perl/ch-1.pl b/challenge-347/robbie-hatley/perl/ch-1.pl index 72436abca0..bc47db87b7 100755 --- a/challenge-347/robbie-hatley/perl/ch-1.pl +++ b/challenge-347/robbie-hatley/perl/ch-1.pl @@ -63,7 +63,7 @@ Output is to STDOUT and will be each input followed by the corresponding output. sub format_date ( $s ) { my ($d1, $m1, $y) = split /\s+/, $s; my $d2 = $d1 =~ s/\D+//gr; - if (length($d2) < 2) {$d2 .= '0'} + if (length($d2) < 2) {$d2='0'.$d2} my %mth_map = ('Jan' => '01', 'Feb' => '02', 'Mar' => '03', 'Apr' => '04', 'May' => '05', 'Jun' => '06', |