perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Barrie Slaymaker <barr...@slaysys.com>
Subject [PATCH mod_perl-1.26] Minor patch to 1.26 to make build process more scriptable
Date Wed, 07 Nov 2001 21:24:01 GMT
This might help people deal with scripted builds that fail a little
better.  Not that I ever have them ;).

- Barrie

--- Makefile.PL.orig	Wed Nov  7 16:14:03 2001
+++ Makefile.PL	Wed Nov  7 16:19:10 2001
@@ -655,7 +655,8 @@
 	#print STDERR "(cd $adir; ./Configure${dash_make} -file $PWD/$conf)\n";
 	$cfgfile = $CONFIG ? $CONFIG : "$PWD/$conf";
 	$dash_make ||= "";
-	system "(cd $adir && ./Configure${dash_make} -file $cfgfile)";
+	system( "(cd $adir && ./Configure${dash_make} -file $cfgfile)" ) == 0
+           or die "$adir/Configure returned ", $? >> 8 ;
 
 	open FH, "$APACHE_SRC/Makefile" or 
 	    die "can't open $APACHE_SRC/Makefile $!";
@@ -1049,13 +1050,15 @@
 	    }
 	}
 	print "(cd $APACHE_ROOT && $cmd)\n";
-	system "(cd $APACHE_ROOT && $cmd)";
+	system( "(cd $APACHE_ROOT && $cmd)" ) == 0
+           or die "$APACHE_ROOT/$cmd returned ", $? >> 8, "\n" ;
     }
 
     if($USE_APXS) {
 	my $cmd = "./configure --with-perl=$^X";
 	$cmd .= " --with-apxs=$WITH_APXS" if $WITH_APXS;
-	system "(cd apaci && $cmd)";
+	system( "(cd apaci && $cmd)" ) == 0
+           or die "apaci/$cmd returned ", $? >> 8, "\n" ;
     }
 
     #expand ./t to full path

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message