pktop: fix potential undefined var

[public-inbox.git] / lib / PublicInbox / PktOp.pm

diff --git a/lib/PublicInbox/PktOp.pm b/lib/PublicInbox/PktOp.pm
index 12839e71a8a11d8eabb067d8b0d9dd3c98fac960..59b37ff8129c3f8c6ac59e6115f01af0c50688cd 100644 (file)
--- a/lib/PublicInbox/PktOp.pm
+++ b/lib/PublicInbox/PktOp.pm
@@ -58,7 +58,7 @@ sub event_step {
                        die "recv: $!";
                }
                my ($cmd, $pargs) = split(/\0/, $msg, 2);
-               my $op = $self->{ops}->{$cmd // $msg};
+               my $op = $self->{ops}->{$cmd //= $msg};
                die "BUG: unknown message: `$cmd'" unless $op;
                my ($sub, @args) = @$op;
                $sub->(@args, $pargs ? ipc_thaw($pargs) : ());