mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-08-03 17:59:07 -04:00
21 lines
879 B
Plaintext
21 lines
879 B
Plaintext
$NetBSD: patch-ad,v 1.7 2013/09/13 10:40:59 sno Exp $
|
|
|
|
Allow parrot to detect perldoc when run as root. Perldoc changes
|
|
uid to 'nobody', 'nouser' or uid -2 when run as root, so it won't
|
|
be able to write files created by root with mode 0600 (or create new
|
|
files in directories owned by root mode 0755).
|
|
|
|
--- config/auto/perldoc.pm.orig 2013-04-30 19:11:28.000000000 +0000
|
|
+++ config/auto/perldoc.pm
|
|
@@ -38,7 +38,9 @@ sub runstep {
|
|
|
|
my $cmd = File::Spec->catfile($conf->data->get('scriptdirexp_provisional'), q{perldoc});
|
|
my ( $fh, $filename ) = tempfile( UNLINK => 1 );
|
|
- my $content = capture_output("$cmd -ud $filename perldoc") || undef;
|
|
+ my($stdout, $stderr, $retval) =
|
|
+ capture_output("$cmd -u $filename perldoc") || undef;
|
|
+ my($content) = $retval ? undef : $stderr;
|
|
|
|
return 1 unless defined( $self->_initial_content_check($conf, $content) );
|
|
|