diff options
Diffstat (limited to 'lang/perl5.8/files/patch-lib_pm')
| -rw-r--r-- | lang/perl5.8/files/patch-lib_pm | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/lang/perl5.8/files/patch-lib_pm b/lang/perl5.8/files/patch-lib_pm deleted file mode 100644 index b3299535adfd..000000000000 --- a/lang/perl5.8/files/patch-lib_pm +++ /dev/null @@ -1,45 +0,0 @@ -$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; |