This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Create try.c afresh for pointersize test
[metaconfig.git] / 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";