From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 24 Sep 1998 05:21:19 +0000 (+0000)
Subject: grandfather deprecated "$$<digit>" no more
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4810e5ece3e68c794a2f5f4b442ae6ee99d4998f;p=p5sagit%2Fp5-mst-13.2.git

grandfather deprecated "$$<digit>" no more

p4raw-id: //depot/perl@1866
---

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 7f63535..0e37c4d 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -2778,18 +2778,6 @@ a term, so it's looking for the corresponding right angle bracket, and not
 finding it.  Chances are you left some needed parentheses out earlier in
 the line, and you really meant a "less than".
 
-=item Use of "$$<digit>" to mean "${$}<digit>" is deprecated
-
-(D) Perl versions before 5.004 misinterpreted any type marker followed
-by "$" and a digit.  For example, "$$0" was incorrectly taken to mean
-"${$}0" instead of "${$0}".  This bug is (mostly) fixed in Perl 5.004.
-
-However, the developers of Perl 5.004 could not fix this bug completely,
-because at least two widely-used modules depend on the old meaning of
-"$$0" in a string.  So Perl 5.004 still interprets "$$<digit>" in the
-old (broken) way inside strings; but it generates this message as a
-warning.  And in Perl 5.005, this special treatment will cease.
-
 =item Use of $# is deprecated
 
 (D) This was an ill-advised attempt to emulate a poorly defined B<awk> feature.
diff --git a/toke.c b/toke.c
index 3d59a4f..844b982 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;