Returning negative milliseconds with Time::Format

CColin has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I've installed Time::Format and dependent modules. Running the following example from the documentation:

print $time{'hh:mm:ss.uuuuuu'}
[download]

on my system returns negative millisecond values, as in

20:17:16.-405272
[download]

The documentation shows the above without a minus sign. Have searched for the problem with no success. Any clues appreciated.

Comment on Returning negative milliseconds with Time::Format Select or Download Code

Replies are listed 'Best First'.
Re: Returning negative milliseconds with Time::Format by codeacrobat (Chaplain) on Mar 14, 2009 at 21:31 UTC
Also the milliseconds don't work. This is the bug. `# v1.09 line 372 sould be $frac = $timeval - $cache_value;` [download] Update, I also submitted a patch to rt. https://rt.cpan.org/Ticket/Display.html?id=44167 `print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});`	[reply] [d/l] [select]
Re^2: Returning negative milliseconds with Time::Format by CColin (Scribe) on Mar 16, 2009 at 01:19 UTC
Updated the line in my local module and seems to work fine. Thanks!	[reply]
Re: Returning negative milliseconds with Time::Format by CountZero (Bishop) on Mar 14, 2009 at 21:13 UTC
I have the same problem, also with the microseconds. Looks like a bug. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply]