From 9e39c21b3d8e97a193f162a4c767eb81f41c91da Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 28 Mar 2002 01:46:21 +0000
Subject: Don't install anything beneath 't' directories.

p4raw-id: //depot/perl@15569
---
 installperl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'installperl')

diff --git a/installperl b/installperl
index f36b4c0d05..3379369ccd 100755
--- a/installperl
+++ b/installperl
@@ -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 '';
 
-- 
cgit v1.2.1