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

Author: nicholas
Date: Mon Aug 29 09:34:45 2005
New Revision: 353

Modified:
   trunk/src/pmc/perl5pvmg_mess.pmc
Log:
perl5pvmg_mess.pmc can have a faked up infinite reference count.


Modified: trunk/src/pmc/perl5pvmg_mess.pmc
==============================================================================
--- trunk/src/pmc/perl5pvmg_mess.pmc	(original)
+++ trunk/src/pmc/perl5pvmg_mess.pmc	Mon Aug 29 09:34:45 2005
@@ -24,7 +24,7 @@ pmclass Perl5PVMG_mess extends Perl5PVMG
 	PMC_pmc_val(SELF) = NULL;
 
         head->sv_flags = SVt_PVMG;
-        head->sv_refcnt = 1 << 30; /* practically infinite */
+        head->sv_refcnt = 0;
 
         Newz(905, any, 1, XPVMG);
 
@@ -67,6 +67,15 @@ pmclass Perl5PVMG_mess extends Perl5PVMG
         }
     }
 
+    INTVAL get_integer_keyed_int(INTVAL key) {
+        switch (key) {
+        case Ponie_I_SV_REFCNT_NO_ABORT:
+        case Ponie_I_SV_REFCNT:
+            return 0x7FFFFFFF;
+        default:
+        return SUPER(key);
+        }
+    }
 }
 
 /*