Permalink
Browse files

Item14205: Not compatible with perl 5.8.8

  • Loading branch information...
gac410 committed Nov 14, 2016
1 parent 1dec01a commit b8a202c056e4ffae8e744a96dd5c88fddbfa39b4
Showing with 4 additions and 2 deletions.
  1. +4 −2 core/lib/Foswiki/Aux/MuteOut.pm
@@ -57,8 +57,10 @@ sub new {
my ( $oldOut, $oldErr, $rc );
- my $outFile = $params{outFile} // File::Spec->devnull;
- my $errFile = $params{errFile} // File::Spec->devnull;
+ my $outFile =
+ ( defined $params{outFile} ) ? $params{outFile} : File::Spec->devnull;
+ my $errFile =
+ ( defined $params{errFile} ) ? $params{errFile} : File::Spec->devnull;
unless ( open $oldOut, ">&", STDOUT ) {
Foswiki::Aux::Dependencies::_msg( "Cannot dup STDOUT: " . $! );

0 comments on commit b8a202c

Please sign in to comment.