diff options
| author | Brendan O'Dea <bod@debian.org> | 2005-09-12 05:43:14 +1000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-21 13:12:33 +0000 |
| commit | 4cec2b33f0aa04d807b9b31c6b4212fe462cd7d4 (patch) | |
| tree | e74192c7f4eef0e92145a3fae2ccc544961a093c /x2p/walk.c | |
| parent | 2f47ab8edd56c5955eeed9457c1ac240743f9f69 (diff) | |
| download | perl-4cec2b33f0aa04d807b9b31c6b4212fe462cd7d4.tar.gz | |
misc a2p fixes
Message-ID: <20050911094314.GA15155@londo.c47.org>
and remove the check_byacc target from the x2p makefile
p4raw-id: //depot/perl@25534
Diffstat (limited to 'x2p/walk.c')
| -rw-r--r-- | x2p/walk.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/x2p/walk.c b/x2p/walk.c index de1743fc8e..65015ac2e6 100644 --- a/x2p/walk.c +++ b/x2p/walk.c @@ -660,13 +660,11 @@ sub Pick {\n\ str_cat(str,", "); str_scat(str,fstr=walk(1,level,ops[node+2].ival,&numarg,P_COMMA+1)); str_free(fstr); - str_cat(str,", "); if (len == 3) { + str_cat(str,", "); str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,P_COMMA+1)); str_free(fstr); } - else - str_cat(str,"999999"); str_cat(str,")"); break; case OSTRING: @@ -675,7 +673,7 @@ sub Pick {\n\ break; case OSPLIT: str = str_new(0); - limit = ", 9999)"; + limit = ", -1)"; numeric = 1; tmpstr = walk(1,level,ops[node+2].ival,&numarg,P_MIN); if (useval) @@ -1617,13 +1615,13 @@ emit_split(register STR *str, int level) str_cat(str,tokenbuf); } if (const_FS) { - sprintf(tokenbuf," = split(/[%c\\n]/, $_, 9999);\n",const_FS); + sprintf(tokenbuf," = split(/[%c\\n]/, $_, -1);\n",const_FS); str_cat(str,tokenbuf); } else if (saw_FS) - str_cat(str," = split($FS, $_, 9999);\n"); + str_cat(str," = split($FS, $_, -1);\n"); else - str_cat(str," = split(' ', $_, 9999);\n"); + str_cat(str," = split(' ', $_, -1);\n"); tab(str,level); } |