Re: [PATCH] Re: pod2man bug in date generated line

To: Albert Dvornik <bert@genscan.com>, "Larry W. Virden" <lvirden@cas.org>
Cc: perlbug@perl.com
Message-ID: <MLIST_19981120131523.A464@O2.chapin.edu>

p4raw-id: //depot/cfgperl@2259

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index 9d0ecc3..4edf4f8 100644 (file)
--- a/pod/pod2man.PL
+++ b/pod/pod2man.PL
@@ -331,6 +331,7 @@ sub makedate {
     my $secs = shift;
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($secs);
     my $mname = (qw{Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec})[$mon];
+    $year += 1900;
     return "$mday/$mname/$year";
 }