From 4810e5ece3e68c794a2f5f4b442ae6ee99d4998f Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Thu, 24 Sep 1998 05:21:19 +0000 Subject: [PATCH] grandfather deprecated "$$" no more p4raw-id: //depot/perl@1866 --- pod/perldiag.pod | 12 ------------ toke.c | 7 ++----- 2 files changed, 2 insertions(+), 17 deletions(-) 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 "$$" to mean "${$}" 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 "$$" 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 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("\"$$\" to mean \"${$}\""); - else - return s; + return s; } if (*s == '{') { bracket = s; -- 2.7.4