[patch sv.c] improve "...free unref scalar" warning

When an unreferenced SV is freed, print its SV address to help finding the 
failure.

--- sv.c.orig   2003-10-06 20:12:38.000000000 -0700
+++ sv.c        2003-10-06 20:13:45.000000000 -0700
@@ -5316,7 +5316,9 @@
             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;
      }
      ATOMIC_DEC_AND_TEST(refcount_is_zero, SvREFCNT(sv));


__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

• [patch sv.c] improve "...free unref scalar" warning by Stas Bekman
• Re: [patch sv.c] improve "...free unref scalar" warning by Tim Bunce
• Re: [patch sv.c] improve "...free unref scalar" warning by Abhijit Menon-Sen