perl 5.0 alpha 3

[p5sagit/p5-mst-13.2.git] / x2p / find2perl.SH

diff --git a/x2p/find2perl.SH b/x2p/find2perl.SH
old mode 100644 (file)
new mode 100755 (executable)
index 4a95de0..582a992
--- 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;
@@ -89,18 +93,18 @@ while (@ARGV) {
        $out .= &tab;
        $type = shift;
        if ($type eq 'nfs')
-           { $out .= '$dev < 0'; }
+           { $out .= '($dev < 0)'; }
        else
-           { $out .= '$dev >= 0'; }
+           { $out .= '($dev >= 0)'; }
     }
     elsif ($_ eq 'user') {
        $uname = shift;
-       $out .= &tab . "\$uid == \$uid{'$uname'}";
+       $out .= &tab . "(\$uid == \$uid{'$uname'})";
        $inituser++;
     }
     elsif ($_ eq 'group') {
        $gname = shift;
-       $out .= &tab . "\$gid == \$gid{'$gname'}";
+       $out .= &tab . "(\$gid == \$gid{'$gname'})";
        $initgroup++;
     }
     elsif ($_ eq 'nouser') {
@@ -112,22 +116,22 @@ while (@ARGV) {
        $initgroup++;
     }
     elsif ($_ eq 'links') {
-       $out .= &tab . '$nlink ' . &n(shift);
+       $out .= &tab . '($nlink ' . &n(shift);
     }
     elsif ($_ eq 'inum') {
-       $out .= &tab . '$ino ' . &n(shift);
+       $out .= &tab . '($ino ' . &n(shift);
     }
     elsif ($_ eq 'size') {
-       $out .= &tab . 'int((-s _ + 511) / 512) ' . &n(shift);
+       $out .= &tab . '(int((-s _ + 511) / 512) ' . &n(shift);
     }
     elsif ($_ eq 'atime') {
-       $out .= &tab . 'int(-A _) ' . &n(shift);
+       $out .= &tab . '(int(-A _) ' . &n(shift);
     }
     elsif ($_ eq 'mtime') {
-       $out .= &tab . 'int(-M _) ' . &n(shift);
+       $out .= &tab . '(int(-M _) ' . &n(shift);
     }
     elsif ($_ eq 'ctime') {
-       $out .= &tab . 'int(-C _) ' . &n(shift);
+       $out .= &tab . '(int(-C _) ' . &n(shift);
     }
     elsif ($_ eq 'exec') {
        for (@cmd = (); @ARGV && $ARGV[0] ne ';'; push(@cmd,shift)) { }
@@ -173,7 +177,7 @@ while (@ARGV) {
        $newername = 'AGE_OF' . $file;
        $newername =~ s/[^\w]/_/g;
        $newername = '$' . $newername;
-       $out .= "-M _ < $newername";
+       $out .= "(-M _ < $newername)";
        $initnewer .= "$newername = -M " . &quote($file) . ";\n";
     }
     elsif ($_ eq 'eval') {
@@ -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);
@@ -575,7 +579,7 @@ ENDOFSTAT
 sub fileglob_to_re {
     local($tmp) = @_;
 
-    $tmp =~ s/([.^\$()])/\\$1/g;
+    $tmp =~ s#([./^\$()])#\\$1#g;
     $tmp =~ s/([?*])/.$1/g;
     "^$tmp$";
 }
@@ -585,7 +589,7 @@ sub n {
 
     $n =~ s/^-/< / || $n =~ s/^\+/> / || $n =~ s/^/== /;
     $n =~ s/ 0*(\d)/ $1/;
-    $n;
+    $n . ')';
 }
 
 sub quote {