grandfather deprecated "$$<digit>" no more

p4raw-id: //depot/perl@1866

1 files changed, 2 insertions, 5 deletions

diff --git a/toke.c b/toke.c
index 3d59a4f287..844b9829b3 100644
--- a/toke.c
+++ b/toke.c
@@ -5075,12 +5075,9 @@ scan_ident(register char *s, register char *send, char *dest, STRLEN destlen, I3
 	return s;
     }
     if (*s == '$' && s[1] &&
-      (isALNUM(s[1]) || strchr("${", s[1]) || strnEQ(s+1,"::",2)) )
+	(isALNUM(s[1]) || strchr("${", s[1]) || strnEQ(s+1,"::",2)) )
     {
-	if (isDIGIT(s[1]) && PL_lex_state == LEX_INTERPNORMAL)
-	    deprecate("\"$$<digit>\" to mean \"${$}<digit>\"");
-	else
-	    return s;
+	return s;
     }
     if (*s == '{') {
 	bracket = s;