use strict;
use warnings;
use parent qw/Plack::Component/;
-our $VERSION = '0.000_001';
+our $VERSION = '0.000_002';
use File::Find qw/find/;
use File::Path qw/remove_tree/;
my $dir = rel2abs tempdir 'workXXXX', DIR => $self->{cfg}{dir};
my $dest = catfile $dir, 'pkg';
mkdir $dest;
+ @pkgs = grep { exists $self->{cfg}{pkgs}{$_} } @pkgs;
push @pkgs, split ',', ($self->{cfg}{pkgs}{$_}{deps} // '') for @pkgs;
@pkgs = uniq @pkgs;
addpkg $_, $dest for @pkgs;
system $self->{cfg}{vpk} => $dest;
push @zip_files, catfile $dir, "pkg.$self->{cfg}{vpk_extension}"
} else {
- find sub { push @zip_files, $File::Find::name if -f }, 'pkg';
+ find sub { push @zip_files, $File::Find::name if -f }, $dest;
}
zip \@zip_files, catfile($dir, 'pkg.zip'), FilterName => sub { $_ = abs2rel $_, $dir }, -Level => 1;
open my $fh, '<', catfile $dir, 'pkg.zip';