diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-01-10 17:27:39 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-01-10 17:27:39 +0000 |
commit | 574b88211c0c7c08c099f0fa17b950a4aaf1c62f (patch) | |
tree | b4b73a45cd646df5f49c111f1772648e92456810 /perl.c | |
parent | 67d2d14de02de63c7c9137828ed7884f27d67b65 (diff) | |
download | perl-574b88211c0c7c08c099f0fa17b950a4aaf1c62f.tar.gz |
Fix bug picked up by printf format warnings - a cast is needed where
UV is larger than U32 for dumping leaking scalars.
p4raw-id: //depot/perl@32935
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1222,7 +1222,8 @@ perl_destruct(pTHXx) " flags=0x%"UVxf " refcnt=%"UVuf pTHX__FORMAT "\n" "\tallocated at %s:%d %s %s%s\n", - (void*)sv, sv->sv_flags, sv->sv_refcnt pTHX__VALUE, + (void*)sv, (UV)sv->sv_flags, (UV)sv->sv_refcnt + pTHX__VALUE, sv->sv_debug_file ? sv->sv_debug_file : "(unknown)", sv->sv_debug_line, sv->sv_debug_inpad ? "for" : "by", |