Fix default DateTime stringification for second 0..^1

Spotted by Stefan Seifert++.
rakudo · Mar 11, 2020 · 95de785 · 95de785
1 parent 33fc895
commit 95de785
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/core.c/DateTime.pm6 b/src/core.c/DateTime.pm6
@@ -51,7 +51,7 @@ my class DateTime does Dateish {
               $second
             ));
         }
-        else {
+        elsif $second {
             my int $int = ($!second * 1000000 + .5).Int;
             my int $whole = nqp::substr($int,0,nqp::chars($int) - 6);
             nqp::push_s($parts,nqp::concat(
@@ -61,6 +61,14 @@ my class DateTime does Dateish {
             nqp::push_s($parts,'.');
             nqp::push_s($parts,nqp::substr($int,nqp::chars($int) - 6));
         }
+        else {
+            my int $int = ($!second * 1000000 + .5).Int;
+            nqp::push_s($parts,'00.');
+            nqp::push_s($parts,nqp::concat(
+              nqp::x('0',6 - nqp::chars($int)),
+              $int
+            ));
+        }
 
         if nqp::getattr_i(self,DateTime,'$!timezone') -> int $tz {
             nqp::push_s($parts,nqp::islt_i($tz,0) ?? '-' !! '+');