Special compiler settings only change for 64bitall, not for 64bitint

[perl5.git] / toke.c

diff --git a/toke.c b/toke.c
index 70b1dfd..584aea0 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5993,6 +5993,8 @@ Perl_yylex(pTHX)
                  || isALNUM_lazy_if(PL_last_uni+5,UTF)
              ))
                 check_uni();
+            if (*s == '?')
+                deprecate("?PATTERN? without explicit operator");
             s = scan_pat(s,OP_MATCH);
             TERM(sublex_start());
         }