PAUSE::Logger: fix an off-by-one in timestamp month

andk · Apr 28, 2024 · feb2e20 · feb2e20
1 parent bcc5b63
commit feb2e20
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/PAUSE/Logger.pm b/lib/PAUSE/Logger.pm
@@ -36,7 +36,8 @@ sub default_logger_args {
       my @time = localtime $sec;
       sprintf "%4u-%02u-%02u %02u:%02u:%02u.%04u %s\n",
         $time[5]+1900,
-        @time[4,3,2,1,0],
+        $time[4]+1,
+        @time[3,2,1,0],
         int($usec/1000),
         $_[0]
     };