# Create package
local $SIG{__WARN__} = sub { };
- open my $olderr, '>&STDERR';
- open STDERR, '>', File::Spec->devnull;
+
+ # STDERR used to be redirected to null, but this hid errors from PAR::Packer
my %opt = (
%{$PAROPTS},
# take user defined options first and override them with harcoded defaults
args => ['par.pl'],
)->go;
- open STDERR, '>&', $olderr;
-
unlink $par_pl;
chdir $root;
rmove( File::Spec->catfile( 'blib', $par ), $par );