summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-02-21 09:56:25 -0700
committerKarl Williamson <public@khwilliamson.com>2011-02-21 10:21:04 -0700
commit967ac236227eee0c091ece49aec6630bc8536093 (patch)
tree5292a3466ce1c71582a7767bf2e14de4d1deb875 /toke.c
parentc4a9334d2d9cc374d75c8b8254d4703b6983749f (diff)
downloadperl-967ac236227eee0c091ece49aec6630bc8536093.tar.gz
toke.c: fix comment
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index ddd50cf301..7dbdd0819d 100644
--- a/toke.c
+++ b/toke.c
@@ -8791,8 +8791,9 @@ S_pmflag(pTHX_ const char* const valid_flags, U32 * pmfl, char** s) {
* following the 'e'). Otherwise, we resolve to the backwards-
* compatible, but less likely 's/// le ...', i.e. as meaning
* less-than-or-equal. The reason it's not likely is that s//
- * returns a number, and so '<=' should be used for comparing, not
- * 'le'. */
+ * returns a number for code in the field (/r returns a string, but
+ * that wasn't added until the 5.13 series), and so '<=' should be
+ * used for comparing, not 'le'. */
if (*((*s) + 1) == 't') {
goto deprecate;
}