httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-apreq-2/glue/perl Makefile.PL
Date Tue, 15 Jul 2003 20:09:34 GMT
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 {
  
  
  

Mime
View raw message