diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-25 11:14:09 -0600 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-03-25 23:46:22 +0000 |
| commit | dd374669df59cc2457708a01ea0f6d332912530b (patch) | |
| tree | c085cf838d250f49dfc8f9bc949862489e3b3ad8 /toke.c | |
| parent | bd5f3bc473acbb69a352d57b0baf5d694577ad8e (diff) | |
| download | perl-dd374669df59cc2457708a01ea0f6d332912530b.tar.gz | |
Consting five
Message-ID: <20050325231409.GB17660@petdance.com>
[with modification - the extra argument to incpush was supposed to
be being used]
p4raw-id: //depot/perl@24081
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -2603,14 +2603,14 @@ Perl_yylex(pTHX) /* The count here deliberately includes the NUL that terminates the C string constant. This embeds the opening NUL into the string. */ + const char *splits = PL_splitstr; sv_catpvn(PL_linestr, "our @F=split(q", 15); - s = PL_splitstr; do { /* Need to \ \s */ - if (*s == '\\') - sv_catpvn(PL_linestr, s, 1); - sv_catpvn(PL_linestr, s, 1); - } while (*s++); + if (*splits == '\\') + sv_catpvn(PL_linestr, splits, 1); + sv_catpvn(PL_linestr, splits, 1); + } while (*splits++); /* This loop will embed the trailing NUL of PL_linestr as the last thing it does before terminating. */ |