summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-08-25 00:21:14 -0700
committerFather Chrysostomos <sprout@cpan.org>2013-08-25 12:12:35 -0700
commit5104905ca0e45a6aca96dc9f629e2bdd5058b01b (patch)
treeafdc468ba8c3a57e21dfcc5863f5c3c4d5c30293 /toke.c
parent83694831aa716521294be467d8300a4e0ae7ff02 (diff)
downloadperl-5104905ca0e45a6aca96dc9f629e2bdd5058b01b.tar.gz
toke.c:scan_str: Document args in one spot
and space for readability
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c18
1 files changed, 10 insertions, 8 deletions
diff --git a/toke.c b/toke.c
index 165fb71750..53f65c5930 100644
--- a/toke.c
+++ b/toke.c
@@ -10356,11 +10356,15 @@ intro_sym:
/* scan_str
- takes: start position in buffer
- keep_quoted preserve \ on the embedded delimiter(s)
- keep_delims preserve the delimiters around the string
- re_reparse compiling a run-time /(?{})/:
- collapse // to /, and skip encoding src
+ takes:
+ start position in buffer
+ keep_quoted preserve \ on the embedded delimiter(s)
+ keep_delims preserve the delimiters around the string
+ re_reparse compiling a run-time /(?{})/:
+ collapse // to /, and skip encoding src
+ deprecate_escaped_meta issue a deprecation warning for cer-
+ tain paired metacharacters that appear
+ escaped within it
returns: position to continue reading from buffer
side-effects: multi_start, multi_close, lex_repl or lex_stuff, and
updates the read buffer.
@@ -10402,9 +10406,7 @@ intro_sym:
STATIC char *
S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims, int re_reparse,
- bool deprecate_escaped_meta /* Should we issue a deprecation warning
- for certain paired metacharacters that
- appear escaped within it */
+ bool deprecate_escaped_meta
)
{
dVAR;