forked from Lainports/opnsense-ports
8cb1a96ede
Taken from: https://github.com/freebsd/freebsd-ports.git Commit id: 5070672073b68be364139bc6b3a89100bd17d331
11 lines
413 B
Perl
11 lines
413 B
Perl
Obtained from: https://rt.cpan.org/Public/Bug/Display.html?id=70701
|
|
--- test.pl.orig 2005-12-30 19:36:54.000000000 -0900
|
|
+++ test.pl 2012-04-04 06:13:52.000000000 -0800
|
|
@@ -103,6 +103,7 @@
|
|
|
|
if ($t4) {
|
|
$t4 = POE::Component::Child->new(
|
|
+ writemap => { quit => "bye" },
|
|
events => \%t4, debug => $debug
|
|
);
|
|
ok(defined $t4 && $t4->isa('POE::Component::Child'), "[4] init - pipe close");
|