[rt.cpan.org #65385] Patch for Imager::Color->hsv

[imager.git] / errep.perl

diff --git a/errep.perl b/errep.perl
index b4ae4cbb03af815e70c2f12729eb9e6b8edc0695..6b4b5fde8028b0404dc33071a37efb63effc0334 100644 (file)
--- a/errep.perl
+++ b/errep.perl
@@ -1,10 +1,11 @@
-
+#!perl -w
+use strict;
 
 use Config;
 
-@precommands=('uname -a','perl -V');
-@manpages=('dlopen','shl_load','dlsym','dlclose');
-@postcommands=map { "man $_ | col -bf | cat -s" } @manpages;
+my @precommands=('uname -a','perl -V');
+my @manpages=('dlopen','shl_load','dlsym','dlclose');
+my @postcommands=map { "man $_ | col -bf | cat -s" } @manpages;
 
 print <<EOF;
 
@@ -27,7 +28,7 @@ print <<EOF;
 
 EOF
 
-$a=<STDIN>;
+my $a=<STDIN>;
 chomp($a);
 die "Aborted!\n" if $a =~ /^n/i;
 
@@ -39,7 +40,8 @@ open STDERR, '>&STDOUT' or die $!;
 
 rcomm('rm testout/*');
 rcomm(@precommands);
-rcomm("$^X Makefile.PL") || rcomm("make") || rcomm("make test");
+my $make = $Config{make};
+rcomm("$^X Makefile.PL") || rcomm("$make") || rcomm("$make test TEST_VERBOSE=1");
 head("Logfiles from run");
 dumplogs();