Author: nicholas
Date: Thu Dec 8 05:48:41 2005
New Revision: 371
Modified:
trunk/src/pmc/perl5cargo_cult.pmc
Log:
Use ptr_table_inc
Modified: trunk/src/pmc/perl5cargo_cult.pmc
==============================================================================
--- trunk/src/pmc/perl5cargo_cult.pmc (original)
+++ trunk/src/pmc/perl5cargo_cult.pmc Thu Dec 8 05:48:41 2005
@@ -83,7 +83,7 @@ pmclass Perl5cargo_cult dynpmc {
#endif
sv = MUMBLE(SELF);
- ptr_table_store(PL_sv_arenatable, sv, sv);
+ ptr_table_inc(PL_sv_arenatable, sv);
++PL_sv_count;
head->sv_any = 0;