126
my ($protocol, $req_id, $key, $time) = @_;
128
128
my $key_len = length($key);
130
130
if ($protocol == ::IS_ASCII) {
132
132
} elsif ($protocol == ::IS_BINARY) {
133
133
$req = pack(::REQ_PKT_FMT, ::BIN_REQ_MAGIC, ::CMD_DELETE, $key_len, 0, 0, 0, $key_len, 0, 0, 0);