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