avoid a possible sign-extension for offsets/sizes in SGI

[imager.git] / errep.perl

diff --git a/errep.perl b/errep.perl
index b4ae4cbb03af815e70c2f12729eb9e6b8edc0695..033f43d4505d26f403287d2e413a18cbbb89241b 100644 (file)
--- a/errep.perl
+++ b/errep.perl
@@ -1,10 +1,11 @@
-
+#!perl -w
+use strict;

 
 use Config;
 
 
 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;
 
 
 print <<EOF;
 


@@ -27,7 +28,7 @@ print <<EOF;
 
 EOF
 
 
 EOF
 

-$a=<STDIN>;
+my $a=<STDIN>;

 chomp($a);
 die "Aborted!\n" if $a =~ /^n/i;
 
 chomp($a);
 die "Aborted!\n" if $a =~ /^n/i;
 


@@ -39,7 +40,8 @@ open STDERR, '>&STDOUT' or die $!;
 
 rcomm('rm testout/*');
 rcomm(@precommands);
 
 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();
 
 head("Logfiles from run");
 dumplogs();