This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
exclude .git in dist (private tool)
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Mon, 16 Sep 2013 11:15:27 +0000 (13:15 +0200)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Mon, 16 Sep 2013 11:15:27 +0000 (13:15 +0200)
make-dist.pl

index 3eeea1b..18efe98 100755 (executable)
@@ -12,7 +12,7 @@ my @today = localtime;
 my $today = (($today[5] + 1900) * 100 + $today[4] + 1) * 100 + $today[3];
 
 my @mc;
-find (sub { -d or push @mc, $File::Find::name }, "metaconfig");
+find (sub { -d || m/\.git/ or push @mc, $File::Find::name }, "metaconfig");
 
 my $tgz = "/tmp/mc_units-$today.tgz";
 unlink $tgz;