diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-08-30 14:50:43 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-09-01 11:32:07 -0700 |
commit | a446b943f7a5b38f67cca69a513d873bc8335552 (patch) | |
tree | bef89c3517af63860578fe9e3685cf0af1ea3dae /toke.c | |
parent | fd6781a58d18dfad9bb46419ccb1acf5a86e2cf6 (diff) | |
download | perl-a446b943f7a5b38f67cca69a513d873bc8335552.tar.gz |
toke.c: Reorder checks around deprecate_escaped_meta
ckWARN_d involves a function call, so put faster checks first.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -10452,8 +10452,8 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims, int re_reparse, * happen for <>, as they aren't metas. */ if (deprecate_escaped_meta && (PL_multi_open == PL_multi_close - || ! ckWARN_d(WARN_DEPRECATED) - || PL_multi_open == '<')) + || PL_multi_open == '<' + || ! ckWARN_d(WARN_DEPRECATED))) { deprecate_escaped_meta = FALSE; } |