cvs commit: ponie/perl sv.c

cvsuser     04/02/29 14:06:18

  Modified:    perl     sv.c
  Log:
  do magic properly still
  
  Revision  Changes    Path
  1.12      +14 -14    ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -w -r1.11 -r1.12
  --- sv.c	29 Feb 2004 18:20:49 -0000	1.11
  +++ sv.c	29 Feb 2004 22:06:18 -0000	1.12
  @@ -3764,7 +3764,7 @@
   	SvRMAGICAL_off(dstr);
       }
   
  -
  +    /*
       if(SvPMC(sstr)) {
          (void)SvUPGRADE(dstr, SVt_PVNV);
          PerlIO_printf(Perl_debug_log, "FOO: %s\n", Parrot_PMC_get_cstring(PL_Parrot, SvANY(sstr)));
  @@ -3773,7 +3773,7 @@
          return;
   
       }
  -
  +    */
   
       /* There's a lot of redundancy below but we're going for speed here */
   
  @@ -5526,9 +5526,9 @@
   	}
       }
       
  -    if(SvPMC(sv)) {
  -      return;     
  -    }
  +    //    if(SvPMC(sv)) {
  +    //  return;     
  +    //}
   
   
       if (SvTYPE(sv) >= SVt_PVMG) {
  @@ -8377,9 +8377,9 @@
   void
   Perl_sv_taint(pTHX_ SV *sv)
   {
  -  if(SvPMC(sv)) {
  -    return;
  -  }
  +  //  if(SvPMC(sv)) {
  +  //  return;
  +  //}
       sv_magic((sv), Nullsv, PERL_MAGIC_taint, Nullch, 0);
   }
   
  @@ -8393,9 +8393,9 @@
   void
   Perl_sv_untaint(pTHX_ SV *sv)
   {
  -  if(SvPMC(sv)) {
  -    return;
  -  }
  +  //if(SvPMC(sv)) {
  +  //  return;
  +  // }
       if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv)) {
   	MAGIC *mg = mg_find(sv, PERL_MAGIC_taint);
   	if (mg)
  @@ -8413,9 +8413,9 @@
   bool
   Perl_sv_tainted(pTHX_ SV *sv)
   {
  -  if(SvPMC(sv)) {
  -    return FALSE;
  -  }
  +  //if(SvPMC(sv)) {
  +  //  return FALSE;
  +  //}
   
       if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv)) {
   	MAGIC *mg = mg_find(sv, PERL_MAGIC_taint);