This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
67d2d14
)
Fix bug picked up by printf format warnings - a cast is needed where
author
Nicholas Clark
<nick@ccl4.org>
Thu, 10 Jan 2008 17:27:39 +0000
(17:27 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Thu, 10 Jan 2008 17:27:39 +0000
(17:27 +0000)
UV is larger than U32 for dumping leaking scalars.
p4raw-id: //depot/perl@32935
perl.c
patch
|
blob
|
blame
|
history
diff --git
a/perl.c
b/perl.c
index
7856208
..
4442112
100644
(file)
--- a/
perl.c
+++ b/
perl.c
@@
-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",