41 lines
1.4 KiB
Diff
41 lines
1.4 KiB
Diff
Upstream-Status:Inappropriate [debian patches]
|
|
From 4c7e04f75c9513451d1622e5a6dd58c2c8377d81 Mon Sep 17 00:00:00 2001
|
|
From: Niko Tyni <ntyni@debian.org>
|
|
Date: Fri, 9 Jan 2009 18:54:47 +0200
|
|
Subject: Make perlivp skip include directories in /usr/local
|
|
|
|
Bug-Debian: http://bugs.debian.org/510895
|
|
|
|
On Sat, Jan 10, 2009 at 12:37:18AM +1100, Brendan O'Dea wrote:
|
|
> On Wed, Jan 7, 2009 at 12:21 AM, Niko Tyni <ntyni@debian.org> wrote:
|
|
|
|
> > We could create the directories in a postinst script, but I'm not sure
|
|
> > I see the point. They will be created automatically when installing
|
|
> > CPAN modules.
|
|
>
|
|
> The directories are intentionally not created, as this way they are
|
|
> excluded from the search path at start-up, saving a bunch of wasted
|
|
> stats at use/require time in the common case that the user has not
|
|
> installed any local packages. As Niko points out, they will be
|
|
> created as required.
|
|
|
|
Signed-off-by: Niko Tyni <ntyni@debian.org>
|
|
|
|
Patch-Name: debian/perlivp.diff
|
|
---
|
|
utils/perlivp.PL | 1 +
|
|
1 files changed, 1 insertions(+), 0 deletions(-)
|
|
|
|
diff --git a/utils/perlivp.PL b/utils/perlivp.PL
|
|
index 6fcb670..1401cac 100644
|
|
--- a/utils/perlivp.PL
|
|
+++ b/utils/perlivp.PL
|
|
@@ -142,6 +142,7 @@ my $INC_total = 0;
|
|
my $INC_there = 0;
|
|
foreach (@INC) {
|
|
next if $_ eq '.'; # skip -d test here
|
|
+ next if m|/usr/local|; # not shipped on Debian
|
|
if (-d $_) {
|
|
print "## Perl \@INC directory `$_' exists.\n" if $opt{'v'};
|
|
$INC_there++;
|