[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