1 files changed, 3 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 60e8874d0e..0274fb4fd0 100644
--- 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)