This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
We do *not* want to use mconfig from mono-web :(
[metaconfig.git] / make-dist.pl
CommitLineData
8e6a3064
MB
1#!/pro/bin/perl
2
3use strict;
4use warnings;
5
6use File::Find;
7use Archive::Tar;
8
9chdir "/pro/3gl/CPAN";
10
11my @today = localtime;
12my $today = (($today[5] + 1900) * 100 + $today[4] + 1) * 100 + $today[3];
13
14my @mc;
6bd2cf46 15find (sub { -d || m/\.git/ or push @mc, $File::Find::name }, "metaconfig");
8e6a3064
MB
16
17my $tgz = "/tmp/mc_units-$today.tgz";
18unlink $tgz;
19Archive::Tar->create_archive ($tgz, 9, sort @mc);
20print $tgz, "\t", -s $tgz, "\n";