diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff')
| -rw-r--r-- | meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff new file mode 100644 index 0000000000..304e4c1af8 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff @@ -0,0 +1,40 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni <ntyni@debian.org> +Subject: Make perlivp skip include directories in /usr/local +Closes: 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> + +--- + utils/perlivp.PL | 1 + + 1 files changed, 1 insertions(+), 0 deletions(-) + +diff --git a/utils/perlivp.PL b/utils/perlivp.PL +index 9783261..156146f 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 ($^O eq 'MacOS') { + next if $_ eq ':'; # skip -d test here + next if $_ eq 'Dev:Pseudo:'; # why is this in @INC? +-- +tg: (a508b62..) debian/perlivp (depends on: upstream) |