use File::Path qw(mkpath rmtree);
use B qw(perlstring);
-our $VERSION = '0.010000'; # 0.10.0
+our $VERSION = '0.010004'; # 0.10.4
$VERSION = eval $VERSION;
my $output = $opts{output};
my $trace_opts = join ',', $output||'>&STDOUT', @{$opts{use}||[]};
- local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace='.$trace_opts;
+ local $ENV{PERL5OPT} = join ' ',
+ ($ENV{PERL5OPT}||()), '-MApp::FatPacker::Trace='.$trace_opts;
my @args = @{$opts{args}||[]};
sub packlists_containing {
my ($self, $targets) = @_;
my @targets = @$targets;
- foreach my $t (@targets) {
- require $t;
+ {
+ local @INC = ('lib', @INC);
+ foreach my $t (@targets) {
+ require $t;
+ }
}
my @search = grep -d $_, map catdir($_, 'auto'), @INC;
my %pack_rev;