[svn:ponie] r347 - trunk/perl

Author: nicholas
Date: Mon Aug 29 05:18:53 2005
New Revision: 347

Modified:
   trunk/perl/perl.c
Log:
No need to set the reference count on PL_sv_undef now
placeholder can also be a Perl5sv_undef


Modified: trunk/perl/perl.c
==============================================================================
--- trunk/perl/perl.c	(original)
+++ trunk/perl/perl.c	Mon Aug 29 05:18:53 2005
@@ -348,7 +348,6 @@ perl_construct(pTHXx)
 	       very often */
 
 	    SvREADONLY_on(&PL_sv_undef);
-	    SvREFCNT_set(&PL_sv_undef, (~(U32)0)/2);
 
 	    PL_sv_no_p = newSV(0);
 	    sv_setpv(&PL_sv_no,PL_No);
@@ -366,9 +365,10 @@ perl_construct(pTHXx)
 	    SvREADONLY_on(&PL_sv_yes);
 	    SvREFCNT_set(&PL_sv_yes, (~(U32)0)/2);
 
-	    PL_sv_placeholder_p = newSV(0);
+	    PL_sv_placeholder_p
+		= MUMBLE(Parrot_PMC_new(PL_Parrot,
+					type_or_bail("Perl5sv_undef")));
 	    SvREADONLY_on(&PL_sv_placeholder);
-	    SvREFCNT_set(&PL_sv_placeholder, (~(U32)0)/2);
 	}
 
 	PL_sighandlerp = Perl_sighandler;