The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include "scan.h"

void
scan_delete_request(const char** src, const char* max, HV *out) {
    SV *sv;
    if (*src > max)
	croak("scan_request: packet too short");
    sv = newSV(0);
    hv_stores(out, "dn", sv);
    scan_raw_utf8_notag(src, max, sv);
}