From ecc0917407bff3bd000a7de92ebbc311221a3258 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Tue, 3 Feb 2009 20:05:06 -0500
Subject: system() stuff should be fixed

---
 t/100-system.t | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/t/100-system.t b/t/100-system.t
index bfc423a..0be6006 100644
--- a/t/100-system.t
+++ b/t/100-system.t
@@ -7,17 +7,14 @@ use IO::Pty::Easy;
 my $pty = IO::Pty::Easy->new;
 $pty->spawn("$^X -ple ''");
 my $output;
-TODO: {
-    local $TODO = "sigchld breaks things...";
-    eval {
-        local $SIG{ALRM} = sub { die "alarm\n" };
-        alarm 5;
-        $output = `$^X -e 'print "foo"'`;
-        alarm 0;
-    };
-    isnt($@, "alarm\n", "system() didn't time out");
-    is($output, "foo", "system() got the right value");
-}
+eval {
+    local $SIG{ALRM} = sub { die "alarm\n" };
+    alarm 5;
+    $output = `$^X -e 'print "foo"'`;
+    alarm 0;
+};
+isnt($@, "alarm\n", "system() didn't time out");
+is($output, "foo", "system() got the right value");
 $pty->kill;
 undef $output;
 eval {
-- 
cgit v1.2.3-54-g00ecf