make-dist.pl

   1 #!/pro/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use File::Find;
   7 use Archive::Tar;
   8
   9 chdir "/pro/3gl/CPAN";
  10
  11 my @today = localtime;
  12 my $today = (($today[5] + 1900) * 100 + $today[4] + 1) * 100 + $today[3];
  13
  14 my @mc;
  15 find (sub { -d || m/\.git/ or push @mc, $File::Find::name }, "metaconfig");
  16
  17 my $tgz = "/tmp/mc_units-$today.tgz";
  18 unlink $tgz;
  19 Archive::Tar->create_archive ($tgz, 9, sort @mc);
  20 print $tgz, "\t", -s $tgz, "\n";