mioga-patch 1.06 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13
diff -r c0f4c1b8b448 Makefile.PL
--- a/Makefile.PL	Sat Oct 06 16:15:43 2012 +0200
+++ b/Makefile.PL	Mon Oct 08 14:47:20 2012 +0200
@@ -115,7 +115,7 @@
 # ----------------------------------------------------------------------------
 sub MY::processPL {
 return '
-# Not realy in the good section, but at a good place:
+# Not really in the good section, but at a good place:
 # between "all" and next "tardist"
 
 include config.mk
diff -r c0f4c1b8b448 lib/MiogaConf.pm
14
--- a/lib/MiogaConf.pm	Sat Oct 06 16:15:43 2012 +0200
15
+++ b/lib/MiogaConf.pm	Mon Oct 08 14:47:20 2012 +0200
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
@@ -811,6 +811,10 @@
 	my @missing;
 	my @missing_clib;
 
+	# Some modules rewrite $ENV{PATH} without hesitation when "require"d,      
+	# we need to put the old one back in place.                                
+	my $oldpath = $ENV{PATH}; 
+
 	foreach my $dep (@{$self->{CONFIG}->{dependencies}->[0]->{dep}}) {
 		my $version;
 		if(exists $dep->{version}) {
@@ -833,6 +837,7 @@
 		}
 	}
 	
+	$ENV{PATH} = $oldpath;
 
 	foreach my $dep (@{$self->{CONFIG}->{dependencies}->[0]->{clib}}) {
 		my $version;