From 5e20b17c2aa9c3dd5563f110d4509e084143a194 Mon Sep 17 00:00:00 2001
From: Alexei Pastuchov <info@maximka.de>
Date: Thu, 27 Oct 2016 22:48:37 +0200
Subject: [PATCH] add work_data to known protocol command list (borrowed
 https://github.com/gearman/perl-Gearman-Client/pull/4)

---
 lib/Gearman/Util.pm | 1 +
 t/11-unit.t         | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Gearman/Util.pm b/lib/Gearman/Util.pm
index b342bb4..50744ec 100644
--- a/lib/Gearman/Util.pm
+++ b/lib/Gearman/Util.pm
@@ -53,6 +53,7 @@ our %cmd = (
     13 => ['IO', "work_complete"],    # W->J/C: HANDLE[0]RES
     14 => ['IO', "work_fail"],        # W->J/C: HANDLE
     25 => ['IO', "work_exception"],   # W->J/C: HANDLE[0]EXCEPTION
+    28 => ['IO', "work_data"],        # W->J/C: HANDLE[0]RES
 
     15 => ['I', "get_status"],    # C->J: HANDLE
     20 => ['O', "status_res"],    # C->J: HANDLE[0]KNOWN[0]RUNNING[0]NUM[0]DENOM
diff --git a/t/11-unit.t b/t/11-unit.t
index e0a63aa..4aba6b5 100644
--- a/t/11-unit.t
+++ b/t/11-unit.t
@@ -15,7 +15,7 @@ no strict "refs";
 my @chr = ('a' .. 'z', 'A' .. 'Z', 0 .. 9);
 
 ok(my %cmd = %{"$mn\:\:cmd"});
-is(keys(%cmd), 27);
+is(keys(%cmd), 28);
 
 foreach my $n (keys %cmd) {
     my $t = $cmd{$n}->[1];