sub {
my $name = $File::Find::name;
return if $name =~ /^\W*lib/;
+ return if $name =~ /^\W*blib/;
+ return if $name =~ /^\W*_build/;
return if $name =~ /\.par$/;
return if $name !~ /\w+/;
push @files, $name;
local $SIG{__WARN__} = sub { };
open my $olderr, '>&STDERR';
open STDERR, '>', File::Spec->devnull;
- my %opt = ( 'x' => 1, 'n' => 0, 'o' => $par, 'a' => [@files], 'B' => 1 );
+ my %opt = ( 'x' => 1, 'n' => 0, 'o' => $par, 'a' => [@files], 'p' => 1 );
App::Packer::PAR->new(
frontend => 'Module::ScanDeps',
backend => 'PAR::Packer',