Update perlfunc/require to describe NXDOMAIN caching... er, you

[p5sagit/p5-mst-13.2.git] / sv.c

diff --git a/sv.c b/sv.c
index 60e8874..0274fb4 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -5594,7 +5594,9 @@ Perl_sv_free(pTHX_ SV *sv)
            return;
        }
        if (ckWARN_d(WARN_INTERNAL))
-           Perl_warner(aTHX_ packWARN(WARN_INTERNAL), "Attempt to free unreferenced scalar");
+           Perl_warner(aTHX_ packWARN(WARN_INTERNAL),
+                        "Attempt to free unreferenced scalar SV 0x%"UVxf,
+                PTR2UV(sv));
        return;
     }
     if (--(SvREFCNT(sv)) > 0)