[perl #52894] [CAGE] use more File::Temp to avoid permission issues

[James Keenan via RT]

Well, if I had RTFM 'perldoc File::Temp' correctly, I wouldn't have
gotten the arguments wrong.

The attached patch, applied in r28211, should correct matters.

Sorry for the confusion.

kid51

Index: config/auto/perldoc.pm
===================================================================
--- config/auto/perldoc.pm      (revision 28210)
+++ config/auto/perldoc.pm      (working copy)
@@ -37,12 +37,12 @@
     my ( $self, $conf ) = @_;
 
     my $cmd = $conf->data->get_p5('scriptdirexp') . q{/perldoc};
-    my ( $tmpfile, $fname ) = tempfile( UNLINK => 1 );
-    my $content = capture_output("$cmd -ud $tmpfile perldoc") || undef;
+    my ( $fh, $filename ) = tempfile( UNLINK => 1 );
+    my $content = capture_output("$cmd -ud $filename perldoc") || undef;
 
     return 1 unless defined( $self->_initial_content_check($conf, $content) );
 
-    my $version = $self->_analyze_perldoc($cmd, $tmpfile, $content);
+    my $version = $self->_analyze_perldoc($cmd, $filename, $content);
 
     _handle_version($conf, $version);