From 61b7290c3276ab8160e7acfa8a56d2dd64396229 Mon Sep 17 00:00:00 2001 From: Anton Berezin <tobez@FreeBSD.org> Date: Tue, 20 Aug 2002 20:58:32 +0000 Subject: o Make perl -MConfig -e 'use lib $Config{installsitelib}' work o Bump PORTREVISION Prompted by: green --- lang/perl5.8/files/patch-lib_pm | 45 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 lang/perl5.8/files/patch-lib_pm (limited to 'lang/perl5.8/files') diff --git a/lang/perl5.8/files/patch-lib_pm b/lang/perl5.8/files/patch-lib_pm new file mode 100644 index 000000000000..b3299535adfd --- /dev/null +++ b/lang/perl5.8/files/patch-lib_pm @@ -0,0 +1,45 @@ +$FreeBSD$ + +--- lib/lib_pm.PL.orig Wed Jun 5 03:05:46 2002 ++++ lib/lib_pm.PL Tue Aug 20 21:32:55 2002 +@@ -71,30 +71,31 @@ sub import { + + my %names; + foreach (reverse @_) { +- if ($_ eq '') { ++ my $path = $_; ++ if ($path eq '') { + require Carp; + Carp::carp("Empty compile time value given to use lib"); + } + +- local $_ = _nativize($_); ++ $path = _nativize($path); + +- if (-e && ! -d _) { ++ if (-e $path && ! -d _) { + require Carp; + Carp::carp("Parameter to use lib must be directory, not file"); + } +- unshift(@INC, $_); ++ unshift(@INC, $path); + # Add any previous version directories we found at configure time + foreach my $incver (@inc_version_list) + { + my $dir = $Is_MacOS +- ? File::Spec->catdir( $_, $incver ) +- : "$_/$incver"; ++ ? File::Spec->catdir( $path, $incver ) ++ : "$path/$incver"; + unshift(@INC, $dir) if -d $dir; + } +- # Put a corresponding archlib directory in front of $_ if it +- # looks like $_ has an archlib directory below it. ++ # Put a corresponding archlib directory in front of $path if it ++ # looks like $path has an archlib directory below it. + my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir) +- = _get_dirs($_); ++ = _get_dirs($path); + unshift(@INC, $arch_dir) if -d $arch_auto_dir; + unshift(@INC, $version_dir) if -d $version_dir; + unshift(@INC, $version_arch_dir) if -d $version_arch_dir; -- cgit v1.2.3