From d1c0a157bb00772ba05233b72dbeb192268ebf2d Mon Sep 17 00:00:00 2001
From: Robbie Hatley <Hatley.Software@gmail.com>
Date: Fri, 14 Nov 2025 13:05:08 -0800
Subject: Fixed bug in 347-1

Fixed wrong digit order for days 1-9.
---
 challenge-347/robbie-hatley/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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',
-- 
cgit