- release 0.44: add the perl_vendorlib/Email directory

[packages/perl.git] / perl-LD_RUN_PATH.patch

diff -urN perl-5.6.1.orig/lib/ExtUtils/Liblist.pm perl-5.6.1/lib/ExtUtils/Liblist.pm
--- perl-5.6.1.orig/lib/ExtUtils/Liblist.pm	Fri Feb 23 03:57:55 2001
+++ perl-5.6.1/lib/ExtUtils/Liblist.pm	Thu Apr 12 20:57:10 2001
@@ -60,6 +60,7 @@
     my(@searchpath); # from "-L/path" entries in $potential_libs
     my(@libpath) = split " ", $Config{'libpth'};
     my(@ldloadlibs, @bsloadlibs, @extralibs, @ld_run_path, %ld_run_path_seen);
+    $ld_run_path_seen{$_} = 1 foreach qw(/usr/X11R6/lib /usr/lib /lib);
     my(@libs, %libs_seen);
     my($fullname, $thislib, $thispth, @fullname);
     my($pwd) = cwd(); # from Cwd.pm
diff -urN perl-5.6.1.orig/lib/ExtUtils/MM_Unix.pm perl-5.6.1/lib/ExtUtils/MM_Unix.pm
--- perl-5.6.1.orig/lib/ExtUtils/MM_Unix.pm	Thu Apr 12 20:29:35 2001
+++ perl-5.6.1/lib/ExtUtils/MM_Unix.pm	Thu Apr 12 20:56:30 2001
@@ -524,9 +524,16 @@
 };
     my($tmp);
     for $tmp (qw/
-	 EXTRALIBS LDLOADLIBS BSLOADLIBS LD_RUN_PATH
+	 EXTRALIBS LDLOADLIBS BSLOADLIBS
 	 /) {
 	next unless defined $self->{$tmp};
+	push @m, "$tmp = $self->{$tmp}\n";
+    }
+    # don't set LD_RUN_PATH if empty
+    for $tmp (qw/
+	 LD_RUN_PATH
+	 /) {
+	next unless $self->{$tmp};
 	push @m, "$tmp = $self->{$tmp}\n";
     }
     return join "", @m;