diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-20 05:18:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-20 05:18:26 +0000 |
| commit | db7c17d71cacfc5af407f4e30ddbc409ecd03112 (patch) | |
| tree | 1cb761c6c0dc1bbf9223f465a115416edfa3aa7e /x2p | |
| parent | 0c1a8ec7bddcb61a4b45cf947cb375e7d350aaa6 (diff) | |
| download | perl-db7c17d71cacfc5af407f4e30ddbc409ecd03112.tar.gz | |
various little nits
p4raw-id: //depot/perl@3436
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/walk.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/x2p/walk.c b/x2p/walk.c index 24b86aab50..ab76fbef74 100644 --- a/x2p/walk.c +++ b/x2p/walk.c @@ -1292,7 +1292,7 @@ sub Pick {\n\ if (len > 0) tmpstr = walk(1,level,ops[node+1].ival,&numarg,P_MIN); else - tmpstr = str_new(0);; + tmpstr = str_new(0); if (!tmpstr->str_ptr || !*tmpstr->str_ptr) { if (lval_field) { t = saw_OFS ? "$," : "' '"; @@ -1417,7 +1417,7 @@ sub Pick {\n\ str_scat(str,fstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN)); str_free(fstr); if (str->str_ptr[str->str_cur - 1] == '\n') - --str->str_cur;; + --str->str_cur; str_cat(str," while ("); str_scat(str,fstr=walk(0,level,ops[node+2].ival,&numarg,P_MIN)); str_free(fstr); |