Okay a patch using File::Temp
Index: config/auto/perldoc.pm
===================================================================
--- config/auto/perldoc.pm (revision 26971)
+++ config/auto/perldoc.pm (working copy)
@@ -20,6 +20,7 @@
use strict;
use warnings;
+use File::Temp;
use base qw(Parrot::Configure::Step);
use Parrot::Configure::Utils ':auto';
@@ -37,7 +38,9 @@
my ( $self, $conf ) = @_;
my $cmd = $conf->data->get_p5('scriptdirexp') . q{/perldoc};
- my $tmpfile = q{c99da7c4.tmp};
+ my $tmpfile = File::Temp->new( UNLINK => 1, SUFFIX => '.tmp' );
+ my $mode = 0666;
+ chmod $mode, $tmpfile;
my $content = capture_output("$cmd -ud $tmpfile perldoc") || undef;
return 1 unless defined( $self->_initial_content_check($conf,
$content) );
a
-------------------
Andy Bach
Systems Mangler
Internet: [EMAIL PROTECTED]
Voice: (608) 261-5738 Fax: 264-5932
"When angry, count to four; when very angry, swear."
Mark Twain
