[Midnightbsd-cvs] mports: magus.pl: Die if downloading the run tarball fails.
ctriv at midnightbsd.org
ctriv at midnightbsd.org
Wed Mar 5 13:52:06 EST 2008
Log Message:
-----------
Die if downloading the run tarball fails. We might need/want a retry scheme
in the future, but this will be enough for now.
Modified Files:
--------------
mports/Tools/magus/slave:
magus.pl (r1.11 -> r1.12)
-------------- next part --------------
Index: magus.pl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/slave/magus.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -L Tools/magus/slave/magus.pl -L Tools/magus/slave/magus.pl -u -r1.11 -r1.12
--- Tools/magus/slave/magus.pl
+++ Tools/magus/slave/magus.pl
@@ -392,11 +392,13 @@
my $tarball = $current->tarballpath;
- report(debug => "Downloading tree ID $run: $tarball");
+ report(debug => "Downloading tree ID $current: $tarball");
chdir('/usr');
-
- system("/usr/bin/fetch $tarball");
+
+ if (system("/usr/bin/fetch -p $tarball") != 0) {
+ die "Couldn't fetch $tarball";
+ }
rmtree('/usr/mports');
system('/usr/bin/tar xf ' . $current->tarball);
@@ -420,4 +422,3 @@
1;
__END__
-
More information about the Midnightbsd-cvs
mailing list