| … | |
… | |
| 304 | my ($fh, @args) = @_; |
304 | my ($fh, @args) = @_; |
| 305 | ... |
305 | ... |
| 306 | } |
306 | } |
| 307 | |
307 | |
| 308 | # now preserve everything so far as AnyEvent::Fork object |
308 | # now preserve everything so far as AnyEvent::Fork object |
| 309 | # in ยงTEMPLATE. |
309 | # in $TEMPLATE. |
| 310 | use AnyEvent::Fork::Template; |
310 | use AnyEvent::Fork::Template; |
| 311 | |
311 | |
| 312 | # do not put code outside of BEGIN blocks until here |
312 | # do not put code outside of BEGIN blocks until here |
| 313 | |
313 | |
| 314 | # now use the $TEMPLATE process in any way you like |
314 | # now use the $TEMPLATE process in any way you like |
| … | |
… | |
| 625 | return $EARLY->fork |
625 | return $EARLY->fork |
| 626 | if $EARLY; |
626 | if $EARLY; |
| 627 | |
627 | |
| 628 | unless (defined $PERL) { |
628 | unless (defined $PERL) { |
| 629 | # first find path of perl |
629 | # first find path of perl |
| 630 | my $perl = $; |
630 | my $perl = $^X; |
| 631 | |
631 | |
| 632 | # first we try $^X, but the path must be absolute (always on win32), and end in sth. |
632 | # first we try $^X, but the path must be absolute (always on win32), and end in sth. |
| 633 | # that looks like perl. this obviously only works for posix and win32 |
633 | # that looks like perl. this obviously only works for posix and win32 |
| 634 | unless ( |
634 | unless ( |
| 635 | ($^O eq "MSWin32" || $perl =~ m%^/%) |
635 | ($^O eq "MSWin32" || $perl =~ m%^/%) |
