This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Fix comments describing S_tokeq
authorKarl Williamson <khw@cpan.org>
Mon, 13 Feb 2017 18:54:06 +0000 (11:54 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 14 Feb 2017 04:24:08 +0000 (21:24 -0700)
The comments about what this function does were incorrect.

toke.c

diff --git a/toke.c b/toke.c
index e43c9ce..864fda7 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2268,10 +2268,9 @@ S_force_strict_version(pTHX_ char *s)
 
 /*
  * S_tokeq
- * Tokenize a quoted string passed in as an SV.  It finds the next
- * chunk, up to end of string or a backslash.  It may make a new
- * SV containing that chunk (if HINT_NEW_STRING is on).  It also
- * turns \\ into \.
+ * Turns any \\ into \ in a quoted string passed in in 'sv', returning 'sv',
+ * modified as necessary.  However, if HINT_NEW_STRING is on, 'sv' is
+ * unchanged, and a new SV containing the modified input is returned.
  */
 
 STATIC SV *