| Subject: | Perl Rcs Module: bug fix for revdate |
I found a bug with the revdate class and a fix for it.
The version I downloaded is Rcs-1.0. I'm using perl 5.0 with SunOS 5.8.
revdate always returned -1. I noticed that 1900 was not subtracted from the year before being used in timegm function. I added the line "$year = $year - 1900;" to lines 273 (sub daterev) and line 923 (sub _parse_rcs_header) to Rcs.pm.
Also I notices that in Rcs.pm the scalar date was created using timegm, but in the example of how to dereference the scaler, localtime was used instead of gmtime. This creates a 7 hour error in the returned time.
Thank you,
Michael Sachtjen.