[svn:ponie] r361 - trunk/src/pmc

Author: nicholas
Date: Mon Oct 17 14:17:47 2005
New Revision: 361

Modified:
   trunk/src/pmc/perl5cargo_cult_static_get.c
Log:
The address registry hash now returns 0, so no need to massage the old -1
return value.


Modified: trunk/src/pmc/perl5cargo_cult_static_get.c
==============================================================================
--- trunk/src/pmc/perl5cargo_cult_static_get.c	(original)
+++ trunk/src/pmc/perl5cargo_cult_static_get.c	Mon Oct 17 14:17:47 2005
@@ -25,10 +25,7 @@ S_get_integer_keyed_int(PMC *pmc, INTVAL
         return PERL5_FLAGS(pmc);
     case Ponie_I_SV_REFCNT_NO_ABORT:
     case Ponie_I_SV_REFCNT:
-        {
-            INTVAL refcnt = PERL5_REFCNT(PL_Parrot, pmc);
-            return refcnt == -1 ? 0 : refcnt;
-        }
+        return PERL5_REFCNT(PL_Parrot, pmc);
     case Ponie_I_SV_TYPE:
         return PERL5_FLAGS(pmc) & SVTYPEMASK;
     case Ponie_I_SVp_OK: