Return the filehandle for saving the intermediate output

rjbs · Dec 18, 2011 · f7ba5e4 · f7ba5e4
1 parent 208b5e1
commit f7ba5e4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Pod/Perldoc/ToMan.pm b/lib/Pod/Perldoc/ToMan.pm
@@ -176,6 +176,7 @@ sub _save_pod_man_output {
 		my $file = "podman.out.$$.txt";
 		$self->debug( "Writing $file with Pod::Man output\n" );
 		open my $fh2, '>', $file;
+		$fh2;
 		} unless $fh;
 
 	print { $fh } ${ $self->{_text_ref} };