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 $@;