[PATCH] Remove C++ -style comments

Another trivial patch -- this one to remove the C++-style
comments.

diff -ru ponie-2/perl/gv.c ponie-andy/perl/gv.c
--- ponie-2/perl/gv.c	Fri Feb 27 09:23:39 2004
+++ ponie-andy/perl/gv.c	Fri Mar 12 16:52:47 2004
@@ -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))))
diff -ru ponie-2/perl/sv.c ponie-andy/perl/sv.c
--- ponie-2/perl/sv.c	Wed Mar 10 18:07:23 2004
+++ ponie-andy/perl/sv.c	Fri Mar 12 16:52:47 2004
@@ -5702,9 +5702,11 @@
 	}
     }

+    /*
     //    if(SvPMC(sv)) {
     //  return;
     //}
+    */


     if (SvTYPE(sv) >= SVt_PVMG) {
@@ -8553,9 +8555,11 @@
 void
 Perl_sv_taint(pTHX_ SV *sv)
 {
+  /*
   //  if(SvPMC(sv)) {
   //  return;
   //}
+  */
     sv_magic((sv), Nullsv, PERL_MAGIC_taint, Nullch, 0);
 }

@@ -8569,9 +8573,11 @@
 void
 Perl_sv_untaint(pTHX_ SV *sv)
 {
+  /*
   //if(SvPMC(sv)) {
   //  return;
   // }
+  */
     if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv)) {
 	MAGIC *mg = mg_find(sv, PERL_MAGIC_taint);
 	if (mg)
@@ -8589,9 +8595,11 @@
 bool
 Perl_sv_tainted(pTHX_ SV *sv)
 {
+  /*
   //if(SvPMC(sv)) {
   //  return FALSE;
   //}
+  */

     if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv)) {
 	MAGIC *mg = mg_find(sv, PERL_MAGIC_taint);

-- 
    Andy Dougherty		[email protected]