diff options
| author | Larry Wall <larry@netlabs.com> | 1993-10-10 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <larry@netlabs.com> | 1993-10-10 00:00:00 +0000 |
| commit | 93a17b20b6d176db3f04f51a63b0a781e5ffd11c (patch) | |
| tree | 764149b1d480d5236d4d62b3228bd57f53a71042 /lib/ctime.pl | |
| parent | 79072805bf63abe5b5978b5928ab00d360ea3e7f (diff) | |
| download | perl-93a17b20b6d176db3f04f51a63b0a781e5ffd11c.tar.gz | |
perl 5.0 alpha 3
[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]
Diffstat (limited to 'lib/ctime.pl')
| -rw-r--r-- | lib/ctime.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ctime.pl b/lib/ctime.pl index 2d5ee65e36..14e122adda 100644 --- a/lib/ctime.pl +++ b/lib/ctime.pl @@ -44,7 +44,7 @@ sub ctime { } $TZ .= ' ' unless $TZ eq ''; - $year += ($year < 70) ? 2000 : 1900; + $year += 1900; sprintf("%s %s %2d %2d:%02d:%02d %s%4d\n", $DoW[$wday], $MoY[$mon], $mday, $hour, $min, $sec, $TZ, $year); } |