Skip Menu |
 

This queue is for tickets about the mod_perl CPAN distribution.

Report information
The Basics
Id: 45463
Status: new
Priority: 0/
Queue: mod_perl

People
Owner: Nobody in particular
Requestors: brendan [...] sitesuite.com.au
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Apache2::SubProcess Fails to execute script when using example provided from cgi
Date: Mon, 27 Apr 2009 16:51:45 +1000
To: bug-mod_perl [...] rt.cpan.org
From: Brendan Beveridge <brendan [...] sitesuite.com.au>
Download (untitled) / with headers
text/plain 1.2k
Running the following from a module that gets called from cgi results in the spawned file being accessed but not executed: use mod_perl2; use constant MP2 => ( exists $ENV{MOD_PERL_API_VERSION} and $ENV{MOD_PERL_API_VERSION} >= 2 ); BEGIN { if (MP2) { require Apache2::RequestUtil; } } use Apache2::SubProcess(); my @argv = qw ( foo bar ); my $cmd_file = '/tmp/foo.pl'; my $r = Apache2::RequestUtil->request; $r->spawn_proc_prog($binary, \@argv); Contents of /tmp/foo.pl: #!/usr/bin/perl use POSIX 'setsid'; chdir '/' or die "Can't chdir to /: $!"; open STDIN, '/dev/null' or die "Can't read /dev/null: $!"; open STDOUT, '+>>', '/tmp/error_log' or die "Can't write to /dev/null: $!"; open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; setsid or die "Can't start a new session: $!"; `touch /tmp/foo2`; with this i can see that apache accesses the file but does not seem to execute it. however if i comment out use POSIX 'setsid'; and the call to setsid, the script gets executed. Now what i have also tried is just adding a use statement for a completely different module: use Data::Dumper; When this is used (with POSIX commented out) it also does not execute the script. Any ideas? Cheers Brendan perl version: v5.10.0 mod_perl2 version: 2.0.4-5


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.