1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
Description: set some variables to keep the build system from doing stupid stuff
Origin: vendor
Forwarded: no
Author: Ryan Niebur <ryan@debian.org>
Reviewed-by: gregor herrmann <gregoa@debian.org>
Last-Update: 2010-11-17
--- a/lib/Module/Depends/Intrusive.pm
+++ b/lib/Module/Depends/Intrusive.pm
@@ -3,6 +3,7 @@ package Module::Depends::Intrusive;
use base qw( Module::Depends );
use Cwd qw( getcwd );
use ExtUtils::MakeMaker ();
+use Env::Sanctify;
sub _find_modules {
my $self = shift;
@@ -86,6 +87,7 @@ sub _find_modules {
no strict;
no warnings;
local $0 = $file;
+ my $sanctify = Env::Sanctify->sanctify( env => { PERL_MM_USE_DEFAULT => 1, PERL_AUTOINSTALL => "--skipdeps" } );
do "$file";
};
$self->error( $@ ) if $@;
|
