diff options
Diffstat (limited to 'ext/Pod-Html/lib/Pod/Html.pm')
-rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index 46ff0da9ea..cb0f6b8152 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -574,16 +574,16 @@ sub _save_page { sub write_file { my ($globals, $output) = @_; $globals->{Htmlfile} = "-" unless $globals->{Htmlfile}; # stdout - my $FHOUT; + my $fhout; if($globals->{Htmlfile} and $globals->{Htmlfile} ne '-') { - open $FHOUT, ">", $globals->{Htmlfile} + open $fhout, ">", $globals->{Htmlfile} or die "$0: cannot open $globals->{Htmlfile} file for output: $!\n"; } else { - open $FHOUT, ">-"; + open $fhout, ">-"; } - binmode $FHOUT, ":utf8"; - print $FHOUT $output; - close $FHOUT or die "Failed to close $globals->{Htmlfile}: $!"; + binmode $fhout, ":utf8"; + print $fhout $output; + close $fhout or die "Failed to close $globals->{Htmlfile}: $!"; chmod 0644, $globals->{Htmlfile} unless $globals->{Htmlfile} eq '-'; } |