ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-Fork/Fork.pm
(Generate patch)

Comparing AnyEvent-Fork/Fork.pm (file contents):
Revision 1.39 by root, Sat Apr 6 22:39:37 2013 UTC vs.
Revision 1.40 by root, Sat Apr 6 22:41:56 2013 UTC

… …
230 open my $output, ">/tmp/log" or die "$!"; 230 open my $output, ">/tmp/log" or die "$!";
231 231
232 AnyEvent::Fork 232 AnyEvent::Fork
233 ->new 233 ->new
234 ->eval (' 234 ->eval ('
235 # compile a helper function for later use
235 sub run { 236 sub run {
236 my ($fh, $output, @cmd) = @_; 237 my ($fh, $output, @cmd) = @_;
237 238
238 # perl will clear close-on-exec on STDOUT/STDERR 239 # perl will clear close-on-exec on STDOUT/STDERR
239 open STDOUT, ">&", $output or die; 240 open STDOUT, ">&", $output or die;
… …
369use AnyEvent; 370use AnyEvent;
370use AnyEvent::Util (); 371use AnyEvent::Util ();
371 372
372use IO::FDPass; 373use IO::FDPass;
373 374
374our $VERSION = 0.5; 375our $VERSION = 0.6;
375 376
376our $PERL; # the path to the perl interpreter, deduces with various forms of magic 377our $PERL; # the path to the perl interpreter, deduces with various forms of magic
377 378
378=over 4 379=over 4
379 380

Diff Legend

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