diff options
| author | Stas Bekman <stas@stason.org> | 2003-10-06 14:19:53 -0700 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2003-10-07 03:37:01 +0000 |
| commit | d5dede0455edd65d2ac561aaf6cfdbdfc0d662ee (patch) | |
| tree | 371a5ee1a703d0668e8d7478312fe84734116864 /sv.c | |
| parent | 4d8b06f1629b5d0007e3c48de953ec16cd80d51f (diff) | |
| download | perl-d5dede0455edd65d2ac561aaf6cfdbdfc0d662ee.tar.gz | |
[patch sv.c] improve "...free unref scalar" warning
Message-Id: <3F823EE9.4030103@stason.org>
p4raw-id: //depot/perl@21416
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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) |