Hide postderef behind the feature feature

2 files changed, 31 insertions, 3 deletions

diff --git a/t/op/postfixderef.t b/t/op/postfixderef.t
index 6569db36d5..080b477b5a 100644
--- a/t/op/postfixderef.t
+++ b/t/op/postfixderef.t
@@ -16,7 +16,33 @@ BEGIN {
 
 use strict qw(refs subs);
 
-plan(96);
+plan(106);
+
+{
+    no warnings qw 'deprecated syntax';
+    eval '[]->$*';
+    like $@, qr/Can't call method/, '->$* outside of feature scope';
+    eval '[]->@*';
+    like $@, qr/syntax error/, '->@* outside of feature scope';
+    eval '[]->@[1]';
+    like $@, qr/syntax error/, '->@[ outside of feature scope';
+    eval '[]->@{1}';
+    like $@, qr/syntax error/, '->@{ outside of feature scope';
+    eval '[]->%*';
+    like $@, qr/syntax error/, '->%* outside of feature scope';
+    eval '[]->%[1]';
+    like $@, qr/syntax error/, '->%[ outside of feature scope';
+    eval '[]->%{1}';
+    like $@, qr/syntax error/, '->%{ outside of feature scope';
+    eval '[]->&*';
+    like $@, qr/syntax error/, '->&* outside of feature scope';
+    eval '[]->**';
+    like $@, qr/syntax error/, '->** outside of feature scope';
+    eval '[]->*{';
+    like $@, qr/syntax error/, '->*{ outside of feature scope';
+}
+
+use feature 'postderef';
 
 {
     no strict 'refs';
diff --git a/toke.c b/toke.c
index aa88922962..2619cc8364 100644
--- a/toke.c
+++ b/toke.c
@@ -5758,9 +5758,11 @@ Perl_yylex(pTHX)
 	    else if (*s == '>') {
 		s++;
 		s = SKIPSPACE1(s);
-		if (((*s == '$' || *s == '&') && s[1] == '*')
+		if (FEATURE_POSTDEREF_IS_ENABLED && (
+		    ((*s == '$' || *s == '&') && s[1] == '*')
 		  ||((*s == '@' || *s == '%') && strchr("*[{", s[1]))
-		  ||(*s == '*' && (s[1] == '*' || s[1] == '{')))
+		  ||(*s == '*' && (s[1] == '*' || s[1] == '{'))
+		 ))
 		{
 		    PL_expect = XPOSTDEREF;
 		    TOKEN(ARROW);