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]
---
 x2p/find2perl.SH | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'x2p')

diff --git a/x2p/find2perl.SH b/x2p/find2perl.SH
index 324ec12654..582a9924ad 100755
--- a/x2p/find2perl.SH
+++ b/x2p/find2perl.SH
@@ -22,6 +22,10 @@ echo "Extracting find2perl (with variable substitutions)"
 rm -f find2perl
 $spitshell >find2perl <<!GROK!THIS!
 #!$bin/perl
+# 
+# Modified September 26, 1993 to provide proper handling of years after 1999
+#   Tom Link <tml+@pitt.edu>
+#   University of Pittsburgh
 
 eval 'exec $bin/perl -S \$0 \${1+"\$@"}'
 	if \$running_under_some_shell;
@@ -346,7 +350,7 @@ sub ls {
     ($sec,$min,$hour,$mday,$mon,$year) = localtime($mtime);
     $moname = $moname[$mon];
     if (-M _ > 365.25 / 2) {
-	$timeyear = '19' . $year;
+	$timeyear = $year + 1900;
     }
     else {
 	$timeyear = sprintf("%02d:%02d", $hour, $min);
-- 
cgit v1.2.1