make installperl ignore RCS files (from Michael G Schwern

<schwern@pobox.com>)

p4raw-id: //depot/perl@4398

diff --git a/installperl b/installperl
index d0d5eeb..b576d8b 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -573,13 +573,15 @@ sub installlib {
 
     my $name = $_;
 
-    if ($name eq 'CVS' && -d $name) {
+    # Ignore RCS and CVS directories.
+    if (($name eq 'CVS' or $name eq 'RCS') and -d $name) {
        $File::Find::prune = 1;
        return;
     }
     
-    # ignore patch backups and the .exists files.
-    return if $name =~ m{\.orig$|~$|^\.exists};
+    # ignore patch backups, RCS files, emacs backup & temp files and the
+    # .exists files.
+    return if $name =~ m{\.orig$|~$|^#.+#$|,v$|^\.exists};
 
     $name = "$dir/$name" if $dir ne '';
 

diff --git a/lib/Text/Tabs.pm b/lib/Text/Tabs.pm
index acd7afb..c431019 100644 (file)
--- a/lib/Text/Tabs.pm
+++ b/lib/Text/Tabs.pm
@@ -7,7 +7,7 @@ require Exporter;
 @EXPORT = qw(expand unexpand $tabstop);
 
 use vars qw($VERSION $tabstop $debug);
-$VERSION = 96.121201;
+$VERSION = 98.112801;
 
 use strict;
 
@@ -18,7 +18,7 @@ BEGIN {
 
 sub expand
 {
-       my @l = @_;
+       my (@l) = @_;
        for $_ (@l) {
                1 while s/(^|\n)([^\t\n]*)(\t+)/
                        $1. $2 . (" " x 
@@ -32,7 +32,7 @@ sub expand
 
 sub unexpand
 {
-       my @l = @_;
+       my (@l) = @_;
        my @e;
        my $x;
        my $line;