cvs commit: ponie/perl util.c

cvsuser     04/10/27 08:27:16

  Modified:    perl     util.c
  Log:
  Need to reset the remainder of the flags word to zero when we create this SV.
  
  Revision  Changes    Path
  1.9       +2 -1      ponie/perl/util.c
  
  Index: util.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/util.c,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- util.c	26 Oct 2004 18:50:24 -0000	1.8
  +++ util.c	27 Oct 2004 15:27:13 -0000	1.9
  @@ -834,7 +834,8 @@
       sv = MUMBLE(pvpvmg);
   
       Newz(905, any, 1, XPVMG);
  -    SvTYPE_set(sv, SVt_PVMG);
  +    Parrot_PMC_set_intval_intkey(PL_Parrot,MUMBLE(sv),
  +				 Ponie_I_SV_ZERO_FLAGS_SET_TYPE, SVt_PVMG);
       SvANY(sv) = /*(void*)MUMBLE(pvpvmg);*/ any;
       SvREFCNT(sv) = 1 << 30; /* practically infinite */
       SvPMC_on(sv);