Skip to content
Browse files

Fall back to a single POE::Kernel->run() in this test because multiple

entries were crashing ActivePerl + Tk.
  • Loading branch information...
1 parent 4777435 commit 8ed0e8c526f5a07345237628ab8c1e040d27309f @rcaputo committed
Showing with 1 addition and 5 deletions.
  1. +1 −5 tests/30_loops/00_base/wheel_run.pm
View
6 tests/30_loops/00_base/wheel_run.pm
@@ -46,7 +46,6 @@ use POE qw(Wheel::Run Filter::Line);
my $pty_flush_count = 0;
my $os_quote = ($^O eq 'MSWin32') ? q(") : q(');
-
my $program = (
"$^X -we $os_quote" .
'$/ = q(!); select STDERR; $| = 1; select STDOUT; $| = 1; ' .
@@ -139,7 +138,6 @@ my $program = (
},
);
- POE::Kernel->run();
}
### Test Wheel::Run with a coderef instead of a subprogram. Uses "!"
@@ -245,7 +243,6 @@ SKIP: {
},
);
- POE::Kernel->run();
}
### Test Wheel::Run with ptys. Uses "!" as a newline to avoid having
@@ -353,12 +350,11 @@ SKIP: {
},
);
- POE::Kernel->run();
}
### Run the main loop.
-# POE::Kernel->run();
+POE::Kernel->run();
### Post-run tests.

0 comments on commit 8ed0e8c

Please sign in to comment.
Something went wrong with that request. Please try again.