More ?-quantifier preparation... adjust Temporal.pm to use **0..1 ins…

…tead of ? .
rakudo · Apr 29, 2013 · 3252c3e · 3252c3e
1 parent a174307
commit 3252c3e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Temporal.pm b/src/core/Temporal.pm
@@ -253,7 +253,7 @@ my class DateTime does Dateish {
     }
 
     multi method new(Str $format, :$timezone is copy = 0, :&formatter=&default-formatter) {
-        $format ~~ /^ (\d**4) '-' (\d\d) '-' (\d\d) T (\d\d) ':' (\d\d) ':' (\d\d) (Z || (<[\-\+]>) (\d\d)(\d\d))? $/
+        $format ~~ /^ (\d**4) '-' (\d\d) '-' (\d\d) T (\d\d) ':' (\d\d) ':' (\d\d) (Z || (<[\-\+]>) (\d\d)(\d\d))**0..1 $/
             or X::Temporal::InvalidFormat.new(
                     invalid-str => $format,
                     target      => 'DateTime',