X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/02d1d62827cef86398edc2013f7d2ff04bf21c63..ee64a81f0e5369f35b1de01808822ed6084d4af4:/errep.perl

diff --git a/errep.perl b/errep.perl
index b4ae4cbb..033f43d4 100644
--- 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 --verbose") || rcomm("$make") || rcomm("$make test TEST_VERBOSE=1");
 head("Logfiles from run");
 dumplogs();