cvs commit: ponie/perl util.c

[email protected] (Arthur Bergman) 12 Mar 2004 13:27:36 -0000

Newsgroups	perl.ponie.changes
Message-ID	<[email protected]>

cvsuser     04/03/12 05:27:36

  Modified:    perl     util.c
  Log:
  SvPMC_off on the fake mess sv
  
  Revision  Changes    Path
  1.2       +1 -0      ponie/perl/util.c
  
  Index: util.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/util.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- util.c	9 Sep 2003 11:58:57 -0000	1.1
  +++ util.c	12 Mar 2004 13:27:36 -0000	1.2
  @@ -827,6 +827,7 @@
       SvFLAGS(sv) = SVt_PVMG;
       SvANY(sv) = (void*)any;
       SvREFCNT(sv) = 1 << 30; /* practically infinite */
  +    SvPMC_off(sv);
       PL_mess_sv = sv;
       return sv;
   }