From 93a17b20b6d176db3f04f51a63b0a781e5ffd11c Mon Sep 17 00:00:00 2001
From: Larry Wall <larry@netlabs.com>
Date: Sun, 10 Oct 1993 00:00:00 +0000
Subject: perl 5.0 alpha 3

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]
---
 lib/ctime.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/ctime.pl')

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);
 }
-- 
cgit v1.2.1