Change 19794 by [EMAIL PROTECTED] on 2003/06/15 21:01:18 <enter description here> Rename again the warning about $* being no longer supported (and update perldiag this time!)
Affected files ... ... //depot/perl/gv.c#193 edit ... //depot/perl/pod/perldiag.pod#350 edit ... //depot/perl/t/lib/warnings/gv#4 edit Differences ... ==== //depot/perl/gv.c#193 (text) ==== Index: perl/gv.c --- perl/gv.c#192~19784~ Sat Jun 14 13:08:52 2003 +++ perl/gv.c Sun Jun 15 14:01:18 2003 @@ -928,7 +928,7 @@ case '*': if (len == 1 && sv_type == SVt_PV && ckWARN2(WARN_DEPRECATED, WARN_SYNTAX)) Perl_warner(aTHX_ packWARN2(WARN_DEPRECATED, WARN_SYNTAX), - "The variable \"$*\" is no longer supported"); + "$* is no longer supported"); break; case '#': if (len == 1 && sv_type == SVt_PV && ckWARN2(WARN_DEPRECATED, WARN_SYNTAX)) ==== //depot/perl/pod/perldiag.pod#350 (text) ==== Index: perl/pod/perldiag.pod --- perl/pod/perldiag.pod#349~19769~ Fri Jun 13 12:17:50 2003 +++ perl/pod/perldiag.pod Sun Jun 15 14:01:18 2003 @@ -1640,7 +1640,7 @@ to have existed already, but for some reason it didn't, and had to be created on an emergency basis to prevent a core dump. -=item $* has been removed +=item $* is no longer supported (D deprecated) The special variable C<$*>, deprecated in older perls, has been removed as of 5.9.0 and is no longer supported. You should use the ==== //depot/perl/t/lib/warnings/gv#4 (text) ==== Index: perl/t/lib/warnings/gv --- perl/t/lib/warnings/gv#3~19784~ Sat Jun 14 13:08:52 2003 +++ perl/t/lib/warnings/gv Sun Jun 15 14:01:18 2003 @@ -9,7 +9,7 @@ fred() ; Use of $# is deprecated - $* has been removed + $* is no longer supported $a = ${"#"} ; $a = ${"*"} ; @@ -51,4 +51,4 @@ $a = ${"*"}; EXPECT Use of $# is deprecated at - line 3. -The variable "$*" is no longer supported at - line 4. +$* is no longer supported at - line 4. End of Patch.