Skip to content

Commit 190d47b

Browse files
author
H.Merijn Brand - Tux
committed
Adding the tool might help
1 parent eb3129a commit 190d47b

File tree

1 file changed

+35
-0
lines changed

1 file changed

+35
-0
lines changed

make-dist

+35
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,35 @@
1+
#!/pro/bin/perl
2+
3+
use 5.18.2;
4+
use warnings;
5+
use autodie;
6+
7+
use JSON;
8+
use Archive::Tar;
9+
10+
local $/;
11+
12+
open my $fh, "<", "META6.json";
13+
my $vsn = decode_json (<$fh>)->{version};
14+
my $pfx = "Text-CSV-$vsn";
15+
close $fh;
16+
17+
my $tar = Archive::Tar->new;
18+
19+
open my $mh, "<", "MANIFEST";
20+
for (split m/\n/ => <$mh>) {
21+
open my $dh, "<", $_;
22+
substr $_, 0, 0, "$pfx/";
23+
$tar->add_data ($_, <$dh>);
24+
close $dh;
25+
}
26+
close $mh;
27+
28+
my $tgz = "$pfx.tgz";
29+
unlink $tgz if -f $tgz;
30+
$tar->write ($tgz, COMPRESS_GZIP);
31+
32+
my @s = stat $tgz;
33+
my @d = localtime $s[9];
34+
printf "%9d %4d-%02d-%02d %02d:%02d:%02d %s\n",
35+
$s[7], $d[5] + 1900, ++$d[4], @d[3,2,1,0], $tgz;

0 commit comments

Comments
 (0)