summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-06-15 15:39:09 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-06-15 15:39:09 +0000
commitb47cad0843cec3c59de073dc0b722c525c4e1720 (patch)
treef2038030e731b87beaee2fae0ac9bf7f4a7f31ce
parent47c8db80932508b6333745f2c283d5a98bf9cccb (diff)
downloadperl-b47cad0843cec3c59de073dc0b722c525c4e1720.tar.gz
Spurious empty statements.
p4raw-id: //depot/perl@17251
-rw-r--r--op.c2
-rw-r--r--perl.c4
-rw-r--r--perlio.c2
-rw-r--r--sv.c2
4 files changed, 5 insertions, 5 deletions
diff --git a/op.c b/op.c
index 8ee4e3123b..00386806f4 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 113d3bdbad..3c2a04f677 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 304107bcd3..25c78aa5e9 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 71630180fa..f3d39ce722 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;