Permalink
Browse files

include @INC in the forked process' perl

  • Loading branch information...
1 parent 12c33bb commit 7a798db7651d1de18e7c5ca8ced7ce3dc71400a9 @apocalypse committed Apr 24, 2011
Showing with 7 additions and 1 deletion.
  1. +7 −1 lib/POE/Component/SimpleDBI.pm
@@ -1089,7 +1089,13 @@ sub Setup_Wheel {
# Set up the SubProcess we communicate with
$_[HEAP]->{'WHEEL'} = POE::Wheel::Run->new(
# What we will run in the separate process
- 'Program' => "$^X -MPOE::Component::SimpleDBI::SubProcess -e 'POE::Component::SimpleDBI::SubProcess::main()'",
+ 'Program' => [
+ $^X,
+ ( map { "-I$_" } @INC ),
+ '-MPOE::Component::SimpleDBI::SubProcess',
+ '-e',
+ 'POE::Component::SimpleDBI::SubProcess::main()',
+ ],
# Kill off existing FD's
'CloseOnCall' => 1,

0 comments on commit 7a798db

Please sign in to comment.