diff options
| author | Karl Williamson <khw@cpan.org> | 2017-02-13 19:12:31 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-02-13 21:24:10 -0700 |
| commit | 4c3e84f3090c9cc68d352a2c80a95c91d25a8fc7 (patch) | |
| tree | 7c33c26933d9835d22e6d0acd88d5c87966cbd2f /toke.c | |
| parent | f065e1e68bf6a5541c8ceba8c9fcc6e18f51a32b (diff) | |
| download | perl-4c3e84f3090c9cc68d352a2c80a95c91d25a8fc7.tar.gz | |
toke.c: Un-special case something
By refactoring slightly, we make this code in a switch statement
have the same entrance and exit invariants as the other cases, so they
all can be handled uniformly at the end of the switch.
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3934,7 +3934,7 @@ S_scan_const(pTHX_ char *start) case 'c': s++; if (s < send) { - *d++ = grok_bslash_c(*s++, 1); + *d++ = grok_bslash_c(*s, 1); } else { yyerror("Missing control char name in \\c"); @@ -3942,7 +3942,7 @@ S_scan_const(pTHX_ char *start) #ifdef EBCDIC non_portable_endpoint++; #endif - continue; + break; /* printf-style backslashes, formfeeds, newlines, etc */ case 'b': |