stas 2003/07/15 13:09:34
Modified: glue/perl Makefile.PL
Log:
check the return value of do(), needed to trap if it fails to run
xsbuilder.pl
Revision Changes Path
1.5 +2 -1 httpd-apreq-2/glue/perl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/Makefile.PL,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Makefile.PL 15 Jun 2003 10:33:00 -0000 1.4
+++ Makefile.PL 15 Jul 2003 20:09:34 -0000 1.5
@@ -15,7 +15,8 @@
{
local @ARGV = qw(VERSION run);
print "Building xs/ ...\n";
- do "../../build/xsbuilder.pl";
+ my $stat = do "../../build/xsbuilder.pl";
+ die "failed to run xsbuilder: $@" if !defined($stat) && $@;
}
finddepth(sub {
