add work_data to known protocol command list

(borrowed gearman/perl-Gearman-Client#4)
p-alik · Oct 27, 2016 · 5e20b17 · 5e20b17
1 parent 344e863
commit 5e20b17
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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];