Skip processing a file if the file to be opened is '-'

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index d0d5eeb..ddd06fa 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -162,7 +162,7 @@ if ($Is_Cygwin) {
   $perldll = 'perl56.' . $dlext if $Config{'ccflags'} =~ /PERL_OBJECT/i;
 }
 
-   if ($dlsrc != "dl_none.xs") {
+   if ($dlsrc ne "dl_none.xs") {
       -f $perldll || die "No perl DLL built\n";
 
 # Install the DLL
@@ -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 '';