[metaconfig.git] / make-dist.pl

#!/pro/bin/perl

use strict;
use warnings;

use File::Find;
use Archive::Tar;

chdir "/pro/3gl/CPAN";

my @today = localtime;
my $today = (($today[5] + 1900) * 100 + $today[4] + 1) * 100 + $today[3];

my @mc;
find (sub { -d || m/\.git/ or push @mc, $File::Find::name }, "metaconfig");

my $tgz = "/tmp/mc_units-$today.tgz";
unlink $tgz;
Archive::Tar->create_archive ($tgz, 9, sort @mc);
print $tgz, "\t", -s $tgz, "\n";
Commit	Line	Data
8e6a3064 MB	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;
6bd2cf46	15	find (sub { -d \|\| m/\.git/ or push @mc, $File::Find::name }, "metaconfig");
8e6a3064 MB	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";