Patrick Williams | c124f4f | 2015-09-15 14:41:29 -0500 | [diff] [blame] | 1 | From fbfbeb7a690d703a3cdc56f923e89eb7b7997d31 Mon Sep 17 00:00:00 2001 |
| 2 | From: Niko Tyni <ntyni@debian.org> |
| 3 | Date: Fri, 9 Jan 2009 18:54:47 +0200 |
| 4 | Subject: Make perlivp skip include directories in /usr/local |
| 5 | |
| 6 | Bug-Debian: http://bugs.debian.org/510895 |
| 7 | |
| 8 | On Sat, Jan 10, 2009 at 12:37:18AM +1100, Brendan O'Dea wrote: |
| 9 | > On Wed, Jan 7, 2009 at 12:21 AM, Niko Tyni <ntyni@debian.org> wrote: |
| 10 | |
| 11 | > > We could create the directories in a postinst script, but I'm not sure |
| 12 | > > I see the point. They will be created automatically when installing |
| 13 | > > CPAN modules. |
| 14 | > |
| 15 | > The directories are intentionally not created, as this way they are |
| 16 | > excluded from the search path at start-up, saving a bunch of wasted |
| 17 | > stats at use/require time in the common case that the user has not |
| 18 | > installed any local packages. As Niko points out, they will be |
| 19 | > created as required. |
| 20 | |
| 21 | Signed-off-by: Niko Tyni <ntyni@debian.org> |
| 22 | |
| 23 | Patch-Name: debian/perlivp.diff |
| 24 | --- |
| 25 | utils/perlivp.PL | 1 + |
| 26 | 1 file changed, 1 insertion(+) |
| 27 | |
| 28 | diff --git a/utils/perlivp.PL b/utils/perlivp.PL |
| 29 | index c2f0a11..cc49f96 100644 |
| 30 | --- a/utils/perlivp.PL |
| 31 | +++ b/utils/perlivp.PL |
| 32 | @@ -153,6 +153,7 @@ my $INC_total = 0; |
| 33 | my $INC_there = 0; |
| 34 | foreach (@INC) { |
| 35 | next if $_ eq '.'; # skip -d test here |
| 36 | + next if m|/usr/local|; # not shipped on Debian |
| 37 | if (-d $_) { |
| 38 | print "## Perl \@INC directory '$_' exists.\n" if $opt{'v'}; |
| 39 | $INC_there++; |