summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-08-30 14:50:43 -0700
committerFather Chrysostomos <sprout@cpan.org>2013-09-01 11:32:07 -0700
commita446b943f7a5b38f67cca69a513d873bc8335552 (patch)
treebef89c3517af63860578fe9e3685cf0af1ea3dae /toke.c
parentfd6781a58d18dfad9bb46419ccb1acf5a86e2cf6 (diff)
downloadperl-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.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index 2764709d1f..bf9d1600b1 100644
--- a/toke.c
+++ b/toke.c
@@ -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;
}