diff options
| author | Kurt D. Starsinic <kstar@wolfetech.com> | 1998-11-20 23:30:17 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-11-22 11:06:40 +0000 |
| commit | 10d20342241794db0c535c2739c380f367a9f178 (patch) | |
| tree | 7a1ff1581471885e028f5f6b4e03801d936e571f /pod/pod2man.PL | |
| parent | 705cc2552a6910dd0106708eca1060809507816d (diff) | |
| download | perl-10d20342241794db0c535c2739c380f367a9f178.tar.gz | |
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
Diffstat (limited to 'pod/pod2man.PL')
| -rw-r--r-- | pod/pod2man.PL | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 9d0ecc31bc..4edf4f8bb2 100644 --- 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"; } |