This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make installperl ignore RCS files (from Michael G Schwern
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 17 Oct 1999 09:19:24 +0000 (09:19 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 17 Oct 1999 09:19:24 +0000 (09:19 +0000)
<schwern@pobox.com>)

p4raw-id: //depot/perl@4398

installperl
lib/Text/Tabs.pm

index d0d5eeb..b576d8b 100755 (executable)
@@ -573,13 +573,15 @@ sub installlib {
 
     my $name = $_;
 
 
     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;
     }
     
        $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 '';
 
 
     $name = "$dir/$name" if $dir ne '';
 
index acd7afb..c431019 100644 (file)
@@ -7,7 +7,7 @@ require Exporter;
 @EXPORT = qw(expand unexpand $tabstop);
 
 use vars qw($VERSION $tabstop $debug);
 @EXPORT = qw(expand unexpand $tabstop);
 
 use vars qw($VERSION $tabstop $debug);
-$VERSION = 96.121201;
+$VERSION = 98.112801;
 
 use strict;
 
 
 use strict;
 
@@ -18,7 +18,7 @@ BEGIN {
 
 sub expand
 {
 
 sub expand
 {
-       my @l = @_;
+       my (@l) = @_;
        for $_ (@l) {
                1 while s/(^|\n)([^\t\n]*)(\t+)/
                        $1. $2 . (" " x 
        for $_ (@l) {
                1 while s/(^|\n)([^\t\n]*)(\t+)/
                        $1. $2 . (" " x 
@@ -32,7 +32,7 @@ sub expand
 
 sub unexpand
 {
 
 sub unexpand
 {
-       my @l = @_;
+       my (@l) = @_;
        my @e;
        my $x;
        my $line;
        my @e;
        my $x;
        my $line;