cvs commit: ponie/perl gv.c sv.c

cvsuser     04/03/16 09:07:25

  Modified:    perl     gv.c sv.c
  Log:
  Replace // comments with /* */ comments
  
  Revision  Changes    Path
  1.3       +1 -1      ponie/perl/gv.c
  
  Index: gv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/gv.c,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- gv.c	27 Feb 2004 14:23:39 -0000	1.2
  +++ gv.c	16 Mar 2004 17:07:25 -0000	1.3
  @@ -1142,7 +1142,7 @@
       SvOBJECT_on(io);
       /* Clear the stashcache because a new IO could overrule a 
          package name */
  -    //    hv_clear(PL_stashcache);
  +    /*    hv_clear(PL_stashcache); */
       iogv = gv_fetchpv("FileHandle::", FALSE, SVt_PVHV);
       /* unless exists($main::{FileHandle}) and defined(%main::FileHandle::) */
       if (!(iogv && GvHV(iogv) && HvARRAY(GvHV(iogv))))
  
  
  
  1.18      +12 -12    ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -w -r1.17 -r1.18
  --- sv.c	12 Mar 2004 18:08:02 -0000	1.17
  +++ sv.c	16 Mar 2004 17:07:25 -0000	1.18
  @@ -5702,9 +5702,9 @@
   	}
       }
       
  -    //    if(SvPMC(sv)) {
  -    //  return;     
  -    //}
  +    /*    if(SvPMC(sv)) {
  +      return;     
  +      }*/
   
   
       if (SvTYPE(sv) >= SVt_PVMG) {
  @@ -8553,9 +8553,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);
   }
   
  @@ -8569,9 +8569,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)
  @@ -8589,9 +8589,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);