From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 15 Jun 2002 15:39:09 +0000 (+0000)
Subject: Spurious empty statements.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b47cad0843cec3c59de073dc0b722c525c4e1720;p=p5sagit%2Fp5-mst-13.2.git

Spurious empty statements.

p4raw-id: //depot/perl@17251
---

diff --git a/op.c b/op.c
index 8ee4e31..0038680 100644
--- a/op.c
+++ b/op.c
@@ -3423,7 +3423,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *id, OP *arg)
 	pack = newSVOP(OP_CONST, 0, newSVsv(((SVOP*)id)->op_sv));
 
 	/* Fake up a method call to import/unimport */
-	meth = aver ? newSVpvn("import",6) : newSVpvn("unimport", 8);;
+	meth = aver ? newSVpvn("import",6) : newSVpvn("unimport", 8);
 	(void)SvUPGRADE(meth, SVt_PVIV);
 	(void)SvIOK_on(meth);
 	PERL_HASH(SvUVX(meth), SvPVX(meth), SvCUR(meth));
diff --git a/perl.c b/perl.c
index 113d3bd..3c2a04f 100644
--- a/perl.c
+++ b/perl.c
@@ -435,7 +435,7 @@ perl_destruct(pTHXx)
 
     if (CALL_FPTR(PL_threadhook)(aTHX)) {
         /* Threads hook has vetoed further cleanup */
-        return STATUS_NATIVE_EXPORT;;
+        return STATUS_NATIVE_EXPORT;
     }
 
     /* We must account for everything.  */
@@ -491,7 +491,7 @@ perl_destruct(pTHXx)
 #endif
 
 	/* The exit() function will do everything that needs doing. */
-        return STATUS_NATIVE_EXPORT;;
+        return STATUS_NATIVE_EXPORT;
     }
 
     /* jettison our possibly duplicated environment */
diff --git a/perlio.c b/perlio.c
index 304107b..25c78aa 100644
--- a/perlio.c
+++ b/perlio.c
@@ -632,7 +632,7 @@ PerlIO_pop(pTHX_ PerlIO *f)
 	    if ((*l->tab->Popped) (aTHX_ f) != 0)
 		return;
 	}
-	*f = l->next;;
+	*f = l->next;
 	Safefree(l);
     }
 }
diff --git a/sv.c b/sv.c
index 7163018..f3d39ce 100644
--- a/sv.c
+++ b/sv.c
@@ -9342,7 +9342,7 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32 ix, I32 max, CLONE_PARAMS* param)
 	    case CXt_EVAL:
 		ncx->blk_eval.old_in_eval = cx->blk_eval.old_in_eval;
 		ncx->blk_eval.old_op_type = cx->blk_eval.old_op_type;
-		ncx->blk_eval.old_namesv = sv_dup_inc(cx->blk_eval.old_namesv, param);;
+		ncx->blk_eval.old_namesv = sv_dup_inc(cx->blk_eval.old_namesv, param);
 		ncx->blk_eval.old_eval_root = cx->blk_eval.old_eval_root;
 		ncx->blk_eval.cur_text	= sv_dup(cx->blk_eval.cur_text, param);
 		break;