From 42c94234084d58c24522192a056cc801d10ee8c5 Mon Sep 17 00:00:00 2001 From: Chris Nighswonger Date: Tue, 18 Dec 2007 14:16:27 -0500 Subject: [PATCH 1/1] Win32 support: Switch DEBUG off and corrected warning bug. Signed-off-by: Galen Charlton --- fix-perl-path.PL | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fix-perl-path.PL b/fix-perl-path.PL index dbe7403717..600241f0a3 100644 --- a/fix-perl-path.PL +++ b/fix-perl-path.PL @@ -20,7 +20,7 @@ use ExtUtils::MakeMaker::Config; use Tie::File; my $basedir = (shift); -my $DEBUG = 1; +my $DEBUG = 0; $DEBUG = 1 if $basedir eq 'test'; @@ -72,7 +72,7 @@ sub fixshebang{ my $pathfile =$dir . '/' . $file; warn "Found a perl script named $pathfile\n" if $DEBUG; tie @filearray, 'Tie::File', $pathfile or die $!; - print "First line of $file is $filearray[0]\n\n"; + warn "First line of $file is $filearray[0]\n\n" if $DEBUG; if ( ( $filearray[0] =~ /#!.*perl/ ) && ( $filearray[0] !~ /$shebang/ ) ) { warn "\n\tRe-writing shebang line for $pathfile\n" if $DEBUG; warn "\tOriginal shebang line: $filearray[0]\n" if $DEBUG; -- 2.20.1