| Subject: | '-|' is unavailable under Win32 perl |
Emulation is proposed in 'perlfork.pod':
# simulate open(FOO, "|-")
sub pipe_to_fork ($) {
my $parent = shift;
pipe my $child, $parent or die;
my $pid = fork();
die "fork() failed: $!" unless defined $pid;
if ($pid) {
close $child;
}
else {
close $parent;
open(STDIN, "<&=" . fileno($child)) or die;
}
$pid;
}
With this modification, I receive following error:
1..9
# Webserver up on
# Starting test webserver
Missing base argument at C:/Perl/site/lib/HTTP/Response.pm line 93
libwww-perl 5.805
perl v5.8.7 built for MSWin32-x86-multi-thread
Binary build 813
-------
Alexandr Ciornii, http://chorny.net