[libforks-perl] 03/04: Drop forks.diff patch

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch master
in repository libforks-perl.

commit 4281d005dea1653b84ea97c9d3a9c717e40a72e3
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Thu Jun 26 18:15:34 2014 +0200

    Drop forks.diff patch
---
 debian/patches/forks.diff | 35 -----------------------------------
 debian/patches/series     |  1 -
 2 files changed, 36 deletions(-)

diff --git a/debian/patches/forks.diff b/debian/patches/forks.diff
deleted file mode 100644
index 2c3af41..0000000
--- a/debian/patches/forks.diff
+++ /dev/null
@@ -1,35 +0,0 @@
-Description: fix "Use of each() on hash ..." error
-Bug: https://rt.cpan.org/Public/Bug/Display.html?id=86910
-
---- blib/lib/forks.pm.orig	2014-04-10 10:49:35.658714115 +0200
-+++ blib/lib/forks.pm	2014-04-10 10:53:30.216049421 +0200
-@@ -1587,8 +1587,7 @@ if (DEBUG) {
-  my $clients = keys %WRITE;
-  _log( " ! $clients>>" ) if $clients;
- }
--        keys %WRITE if RESET_EACH_ITER;
--        my $write = (each %WRITE) || '';
-+        my $write = keys %WRITE;
-         _update_timedwaiting_idx();
-         $curtime = time();
-         my ($sleep_min) = $write ? (.001) : List::MoreUtils::minmax(
-@@ -1708,10 +1707,9 @@ _log( " =$CLIENT2TID{$client} ".CORE::jo
- #    Die now
- #   Fetch the next client to write to
- 
--        while ($write) {
-+        for $write(keys %WRITE) {
-             unless (defined $WRITE{$write}) {
-                 delete( $WRITE{$write} );
--                $write = each %WRITE;
-                 next;
-             }
-             my $written =
-@@ -1733,7 +1731,6 @@ _log( " >$CLIENT2TID{$write} $written of
-                 _croak( "Error ".($! ? $! + 0 : '').": Could not write ".(length $WRITE{$write})
-                     ." bytes to $CLIENT2TID{$write}: ".($! ? $! : '') );
-             }
--            $write = each %WRITE;
-         }
- my $error = [$select->has_exception( .1 )] if DEBUG;
- if (DEBUG) { _log( " #$CLIENT2TID{$_} error" ) foreach @$error; }
diff --git a/debian/patches/series b/debian/patches/series
index c034e71..8810115 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1 @@
-forks.diff
 fix-spelling-error-in-manpage.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libforks-perl.git