[Midnightbsd-cvs] mports: update_cluster.pl: chmod the tarballs 664 after moving them to

[ctriv at midnightbsd.org]

Log Message:
-----------
chmod the tarballs 664 after moving them to the ftp dir.

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

-------------- next part --------------
Index: update_cluster.pl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/master/update_cluster.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -L Tools/magus/master/update_cluster.pl -L Tools/magus/master/update_cluster.pl -u -r1.11 -r1.12
--- Tools/magus/master/update_cluster.pl
+++ Tools/magus/master/update_cluster.pl
@@ -34,6 +34,7 @@
 use warnings;
 use lib qw(/usr/mports/Tools/lib);
 
+
 use Magus;
 use Mport::Utils qw(recurse_ports);
 use File::Path qw(rmtree);
@@ -58,7 +59,7 @@
   }
   
   update_cvs_dir();
-  
+
   my $run = Magus::Run->create({osversion => $osversion, arch => $arch});
   
   make_tarball($run);
@@ -134,6 +135,7 @@
   
   system($tar) == 0 || die "$tar returned non-zero: $?\n";
   move($tarball, $Magus::Config{'RunTarballDir'}) || die "Couldn't mv $tarball $Magus::Config{'RunTarballDir'}: $!\n";
+  chmod(0664, "$Magus::Config{'RunTarballDir'}/$tarball") || die "Couldn't chmod Magus::Config{'RunTarballDir'}/$tarball: $!\n";
 }