use File::Path qw(mkpath rmtree);
use B qw(perlstring);
-our $VERSION = '0.009006'; # 0.9.6
+our $VERSION = '0.009009'; # 0.9.9
$VERSION = eval $VERSION;
}
my $arg = do {
if ($to_stderr) {
- "=&STDERR"
+ ">&STDERR"
} elsif ($file) {
">>${file}"
}
sub packlists_containing {
my ($self, $targets) = @_;
my @targets = @$targets;
- require $_ for @targets;
+ foreach my $t (@targets) {
+ require $t;
+ }
my @search = grep -d $_, map catdir($_, 'auto'), @INC;
my %pack_rev;
my $cwd = cwd;