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.
