Don't install anything beneath 't' directories.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 28 Mar 2002 01:46:21 +0000 (01:46 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 28 Mar 2002 01:46:21 +0000 (01:46 +0000)
p4raw-id: //depot/perl@15569

installperl

index f36b4c0..3379369 100755 (executable)
@@ -744,7 +744,8 @@ sub installlib {
 
     # ignore patch backups, RCS files, emacs backup & temp files and the
     # .exists files, .PL files, and .t files.
-    return if $name =~ m{\.orig$|~$|^#.+#$|,v$|^\.exists|\.PL$|\.t$};
+    return if $name =~ m{\.orig$|~$|^#.+#$|,v$|^\.exists|\.PL$|\.t$} ||
+              $dir  =~ m{/t(?:/|$)};
 
     $name = "$dir/$name" if $dir ne '';