[ViewVC] Diff of: cvs/cvsroot/AnyEvent-Fork/Fork.pm

Comparing cvsroot/AnyEvent-Fork/Fork.pm (file contents):
Revision 1.7 by root, Thu Apr 4 00:27:06 2013 UTC vs.
Revision 1.8 by root, Thu Apr 4 01:54:40 2013 UTC

    Proc::FastSpawn::fd_inherit (fileno $slave);
    # quick. also doesn't work in win32. of course. what did you expect
    #local $ENV{PERL5LIB} = join ":", grep !ref, @INC;
    my %env = %ENV;
-   $env{PERL5LIB} = join ":", grep !ref, @INC;
+   $env{PERL5LIB} = join +(AnyEvent::Fork::Util::WIN32 ? ";" : ":"), grep !ref, @INC;
    Proc::FastSpawn::spawn (
       $perl,
       ["perl", "-MAnyEvent::Fork::Serve", "-e", "AnyEvent::Fork::Serve::me", fileno $slave, $$],
       [map "$_=$env{$_}", keys %env],
    my ($self, @fh) = @_;
    for my $fh (@fh) {
       $self->_cmd ("h");
       push @{ $self->[2] }, \$fh;
+      push @$self, $fh; # dire hack
    }
    $self
 }
 to save on kernel memory.
 The socket is non-blocking in the parent, and blocking in the newly
 created process. The close-on-exec flag is set on both. Even if not used
 otherwise, the socket can be a good indicator for the existance of the
-process - if the othe rprocess exits, you get a readable event on it,
+process - if the other process exits, you get a readable event on it,
 because exiting the process closes the socket (if it didn't create any
 children using fork).
 =cut
    $self->_cmd ("r", $func);
 }
 =back
+=head1 PORTABILITY NOTES
+Win32 is a loser - code has been written for this platform, pain has been
+felt, but in the end, this platform is just too broken - maybe a later
+version can do it.
 =head1 AUTHOR
  Marc Lehmann <schmorp@schmorp.de>
  http://home.schmorp.de/

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines