[poe-commits] poe/lib/POE/Wheel Run.pm,1.63,1.64

[<rc...@us...>]

Update of /cvsroot/poe/poe/lib/POE/Wheel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1150/lib/POE/Wheel

Modified Files:
	Run.pm 
Log Message:
Apply Matt Trout's NoSetSid patch to POE::Wheel::Run.  When set, it
disables setsid() in the child process.  This closes rt.cpan.org
ticket #3763.


Index: Run.pm
===================================================================
RCS file: /cvsroot/poe/poe/lib/POE/Wheel/Run.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -C2 -d -r1.63 -r1.64
*** Run.pm	28 Jan 2005 08:07:35 -0000	1.63
--- Run.pm	2 Feb 2005 06:02:21 -0000	1.64
***************
*** 223,226 ****
--- 223,228 ----
    my $close_event = delete $params{CloseEvent};
  
+   my $no_setsid = delete $params{NoSetSid};
+ 
    # Make sure the user didn't pass in parameters we're not aware of.
    if (scalar keys %params) {
***************
*** 295,299 ****
        # Become a new unix session.
        # Program 19.3, APITUE.  W. Richard Stevens built my hot rod.
!       eval 'setsid()';
  
        # Open the slave side of the pty.
--- 297,301 ----
        # Become a new unix session.
        # Program 19.3, APITUE.  W. Richard Stevens built my hot rod.
!       eval 'setsid()' unless $no_setsid;
  
        # Open the slave side of the pty.
***************
*** 1251,1254 ****
--- 1253,1262 ----
  change group IDs.  Mileage varies considerably.
  
+ =item NoSetSid
+ 
+ When true, C<NoSetSid> disables setsid() in the child process.  By
+ default, setsid() is called to execute the child process in a separate
+ Unix session.
+ 
  =item Priority