This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix problem pointer casts
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index 475bd22..8ab6d8f 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -1704,7 +1704,7 @@ Perl_sv_2uv(pTHX_ register SV *sv)
     }
 
     DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%"UVxf" 2uv(%"UVuf")\n",
-       (UV)sv,SvUVX(sv)));
+                         PTR2UV(sv),SvUVX(sv)));
     return SvIsUV(sv) ? SvUVX(sv) : (UV)SvIVX(sv);
 }