installer: made $DEBUG in fix-perl-path.pl contigent on DEBUG env var

This commit is contained in:
Galen Charlton 2007-12-18 14:54:51 -06:00
parent d18a80820a
commit 06fb84f566
1 changed files with 1 additions and 1 deletions

View File

@ -20,7 +20,7 @@ use ExtUtils::MakeMaker::Config;
use Tie::File;
my $basedir = (shift);
my $DEBUG = 1;
my $DEBUG = exists $ENV{'DEBUG'} ? $ENV{'DEBUG'} : 0;
$DEBUG = 1 if $basedir eq 'test';