|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.