use IO::File;
use File::Spec;
use File::Find;
-require Catalyst;
=head1 NAME
return if $name =~ /^\W*lib/;
return if $name =~ /\.par$/;
return if $name !~ /\w+/;
- warn "$name\n";
push @files, $name;
},
'.'
$tmp_file->close;
# Create package
+ local $SIG{__WARN__} = sub { };
+ open my $olderr, '>&STDERR';
+ open STDERR, '>', File::Spec->devnull;
my %opt = ( 'x' => 1, 'n' => 0, 'o' => $par, 'a' => [@files] );
App::Packer::PAR->new(
frontend => 'Module::ScanDeps',
backopts => \%opt,
args => ['par_test.pl'],
)->go;
+ open STDERR, '>&', $olderr;
unlink $par_test;
}