Skip to content

Commit

Permalink
Remove the obnoxious warning about the win32 leak in Wheel::Run
Browse files Browse the repository at this point in the history
  • Loading branch information
Larwan Berke committed May 16, 2010
1 parent 5ac44ca commit bf46403
Showing 1 changed file with 1 addition and 9 deletions.
10 changes: 1 addition & 9 deletions lib/POE/Wheel/Run.pm
Expand Up @@ -1194,17 +1194,9 @@ sub _exit_child_any_way_we_can {
eval { CORE::kill KILL => $$; };
eval { exec("$^X -e 0"); };
} else {
# sometimes we reach here via the "good" code path...
if ( defined fileno( STDERR ) ) {
warn "You are running $class on '$^O' and Perl's pseudo-fork emulation is not perfect!\n";
warn "We cannot use the POSIX way to exit this pseudo-process.\n";
warn "THIS MEANS YOU ARE LEAKING APPROX 1KB PER EXEC!\n";
warn "Please look at rt.cpan.org bug #56417 for more information.\n";
}

eval { CORE::kill( KILL => $$ ); };

# Interestingly enough, the KILL is not enough to terminate this process...
# TODO Interestingly enough, the KILL is not enough to terminate this process...
# However, it *is* enough to stop execution of END blocks/etc
# So we will end up falling through to the exit( $exitval ) below
}
Expand Down

0 comments on commit bf46403

Please sign in to comment.