Remove stderr hiding from PAR::Packer
Ton Voon [Tue, 16 Aug 2011 16:02:39 +0000 (17:02 +0100)]
lib/Module/Install/Catalyst.pm

index 4c47bff..9df9b3f 100644 (file)
@@ -370,8 +370,8 @@ EOF
 
     # 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
@@ -391,8 +391,6 @@ EOF
         args      => ['par.pl'],
     )->go;
 
-    open STDERR, '>&', $olderr;
-
     unlink $par_pl;
     chdir $root;
     rmove( File::Spec->catfile( 'blib', $par ), $par );