This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Re: pod2man bug in date generated line
authorKurt D. Starsinic <kstar@wolfetech.com>
Fri, 20 Nov 1998 21:30:17 +0000 (23:30 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 22 Nov 1998 11:06:40 +0000 (11:06 +0000)
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

pod/pod2man.PL

index 9d0ecc3..4edf4f8 100644 (file)
@@ -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];
     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";
 }
 
     return "$mday/$mname/$year";
 }