installperl patchlet

[andreas.koenig.7os6VVqR@franz.ak.mind.de (Andreas J. Koenig)]

Without this patch you can get 

  Use of uninitialized value in numeric eq (==) at ./install_lib.pl line 122.

when a directoy in the path does no exist.

--- installperl-0	2008-10-28 05:05:30.000000000 +0100
+++ installperl	2008-10-28 05:05:33.000000000 +0100
@@ -612,6 +612,7 @@
 	next unless m,^/,;
 	# Use &samepath here because some systems have other dirs linked
 	# to $mainperldir (like SunOS)
+	next unless -d;
 	next if samepath($_, $binexp);
 	next if samepath($_, cwd());
 	next if ($mainperl_is_instperl && samepath($_, $mainperldir));



-- 
andreas

---

Follow-Ups from:

Nicholas Clark <nick@ccl4.org>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---