You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2011/06/19 03:03:39 UTC
[lucy-commits] svn commit: r1137271 - /incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm
Author: marvin
Date: Sun Jun 19 01:03:38 2011
New Revision: 1137271
URL: http://svn.apache.org/viewvc?rev=1137271&view=rev
Log:
Check return value for system().
Modified:
incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm?rev=1137271&r1=1137270&r2=1137271&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm Sun Jun 19 01:03:38 2011
@@ -167,6 +167,7 @@ sub ACTION_charmonizer {
my $rv = system($self->config('cc') eq 'cl' ? 'nmake' : 'make',
"CC=". $self->config('cc'),
$self->config('cc') eq 'cl' ? ("-f", "Makefile.win") : ());
+ $rv and confess("Make failed");
chdir $dir;
}
@@ -186,6 +187,7 @@ sub ACTION_charmonizer_tests {
my $rv = system($self->config('cc') eq 'cl' ? 'nmake' : 'make',
"CC=". $self->config('cc'), "DEFS=$flags",
$self->config('cc') eq 'cl' ? ("-f", "Makefile.win") : (), "tests");
+ $rv and confess("Make failed");
chdir $dir;
}