# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #117029]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=117029 >
<masak> r: sub hms($_) { sprintf "%02d:%02d:%02d", .hour, .minute,
.second }; say hms(DateTime.now)
<p6eval> rakudo 87ad7c: OUTPUT«10:03:05»
<masak> r: sub hms($_) { sprintf "%02d:%02d:%02d", .hour, .minute,
.second }; say hms(DateTime.now(:timezone(-9)))
<p6eval> rakudo 87ad7c: OUTPUT«09:03:12»
* masak submits rakudobug
<masak> oh!
<masak> I'm assuming timezone is hours, but it's something else, right? :)
* masak reads S32/Temporal
<masak> r: sub hms($_) { sprintf "%02d:%02d:%02d", .hour, .minute,
.second }; say hms(DateTime.now(:timezone<-0900>))
<p6eval> rakudo 87ad7c: OUTPUT«08:54:34»
<masak> clearly this is wrong.
The local time at feather was about 10:04. Looks like a
:timezone<-0900> deducted two hours instead of the expected 10. (As
the local time is already <+0100>.)
<masak> it's not 08:54 on the west coast of the US right now.
<masak> so the rakudobug stands.
<sorear> I can confirm that :D
<masak> I'd also venture to suggest that :timezone(-9) should be
forbidden as a format.
<masak> it should be a string, and it should be "+nnnn", "-nnnn", or "Z".
<sorear> also, it's -0800, not -0900
<arnsholt> Heh, true
<sorear> summer time doesn't start for another week or so
<masak> sorear: oh!
<masak> my point still stands, though. :)
<sorear> or is summer time -0700, I forget
<masak> yes, should be.
