|
|
|
@ -398,7 +398,7 @@ if (my $dist = $opts{dist}) {
|
|
|
|
my $zip = Archive::Zip->new();
|
|
|
|
my $zip = Archive::Zip->new();
|
|
|
|
$zip->addTree($basedir->subdir('web').'', dir($dist).'');
|
|
|
|
$zip->addTree($basedir->subdir('web').'', dir($dist).'');
|
|
|
|
$zip->addFile($basedir->file($_).'', dir($dist)->file($_).'') for
|
|
|
|
$zip->addFile($basedir->file($_).'', dir($dist)->file($_).'') for
|
|
|
|
qw/ README.md LICENSE_artistic.txt LICENSE_gpl.txt /;
|
|
|
|
qw/ README.md LICENSE_artistic.txt LICENSE_gpl.txt cpanfile /;
|
|
|
|
$zip->writeToFileNamed("$zipfn") == AZ_OK or die "$zipfn write error";
|
|
|
|
$zip->writeToFileNamed("$zipfn") == AZ_OK or die "$zipfn write error";
|
|
|
|
say STDERR "# Wrote to $zipfn:";
|
|
|
|
say STDERR "# Wrote to $zipfn:";
|
|
|
|
my $unzip = Archive::Zip->new("$zipfn");
|
|
|
|
my $unzip = Archive::Zip->new("$zipfn");
|
|
|
|
|