[Midnightbsd-cvs] mports: update_cluster.pl: Move tarballs to the run tarballs dir after

[ctriv at midnightbsd.org]

Log Message:
-----------
Move tarballs to the run tarballs dir after they are made.

Modified Files:
--------------
    mports/Tools/magus/master:
        update_cluster.pl (r1.9 -> r1.10)

-------------- next part --------------
Index: update_cluster.pl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/master/update_cluster.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -L Tools/magus/master/update_cluster.pl -L Tools/magus/master/update_cluster.pl -u -r1.9 -r1.10
--- Tools/magus/master/update_cluster.pl
+++ Tools/magus/master/update_cluster.pl
@@ -37,6 +37,7 @@
 use Magus;
 use Mport::Utils qw(recurse_ports);
 use File::Path qw(rmtree);
+use File::Copy qw(move);
 
 my $op = shift || die "Usage: $0 refresh | new <arch> <osversion>\n";
 
@@ -132,6 +133,7 @@
   my $tar = "/usr/bin/tar cfj $tarball $Magus::Config{MportsCvsDir}";
   
   system($tar) == 0 || die "$tar returned non-zero: $?\n";
+  move($tarball, $Magus::Config{'RunTarballDir'}) || die "Couldn't mv $tarball $Magus::Config{'RunTarballDir'}: $!\n";
 }