This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Ooops. left an XXX comment in, and worse still it's a // comment
authorNicholas Clark <nick@ccl4.org>
Sun, 16 Nov 2003 21:32:09 +0000 (21:32 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 16 Nov 2003 21:32:09 +0000 (21:32 +0000)
p4raw-id: //depot/perl@21737

hv.c

diff --git a/hv.c b/hv.c
index dd30035..5520cd9 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -970,7 +970,6 @@ Perl_hv_delete(pTHX_ HV *hv, const char *key, I32 klen, I32 flags)
        bool needs_store;
        hv_magic_check (hv, &needs_copy, &needs_store);
 
        bool needs_store;
        hv_magic_check (hv, &needs_copy, &needs_store);
 
-// XXX PerlIO_printf(PerlIO_stderr(), "%d %d\n", is_utf8, klen);
        if (needs_copy
            && (svp = hv_fetch(hv, key, is_utf8 ? -klen : klen, TRUE))) {
            sv = *svp;
        if (needs_copy
            && (svp = hv_fetch(hv, key, is_utf8 ? -klen : klen, TRUE))) {
            sv = *svp;