diff options
| author | Angel Abad <angelabad@gmail.com> | 2016-11-21 08:46:32 +0100 |
|---|---|---|
| committer | Angel Abad <angelabad@gmail.com> | 2016-11-21 08:46:32 +0100 |
| commit | 9a94368276b309ca5a028ec437071ae69ba3bf7d (patch) | |
| tree | d8740a66dbb4238a189fb77c8a8e57dfe59bc480 /lib/MCE/Grep.pm | |
| parent | afb6328aa0d67bd9c1e56b6c89adf956c35d1362 (diff) | |
New upstream version 1.808
Diffstat (limited to 'lib/MCE/Grep.pm')
| -rw-r--r-- | lib/MCE/Grep.pm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lib/MCE/Grep.pm b/lib/MCE/Grep.pm index ea1a4a5..245a8ad 100644 --- a/lib/MCE/Grep.pm +++ b/lib/MCE/Grep.pm @@ -11,7 +11,7 @@ use warnings; no warnings qw( threads recursion uninitialized ); -our $VERSION = '1.807'; +our $VERSION = '1.808'; ## no critic (BuiltinFunctions::ProhibitStringyEval) ## no critic (Subroutines::ProhibitSubroutinePrototypes) @@ -393,10 +393,6 @@ sub run (&@) { MCE::_restore_state(); - if (!$INC{'Tk.pm'} && ($^S || $ENV{'PERL_IPERL_RUNNING'})) { - $_MCE->{$_pid}->shutdown(); # shutdown if in eval state - } - if ($_wantarray) { return map { @{ $_ } } delete @_tmp{ 1 .. $_total_chunks }; } @@ -449,7 +445,7 @@ MCE::Grep - Parallel grep model similar to the native grep function =head1 VERSION -This document describes MCE::Grep version 1.807 +This document describes MCE::Grep version 1.808 =head1 SYNOPSIS |