This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rename again the warning about $* being no longer supported
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 15 Jun 2003 21:01:18 +0000 (21:01 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 15 Jun 2003 21:01:18 +0000 (21:01 +0000)
(and update perldiag this time!)

p4raw-id: //depot/perl@19794

gv.c
pod/perldiag.pod
t/lib/warnings/gv

diff --git a/gv.c b/gv.c
index 74c589e..a5dbb95 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -928,7 +928,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
     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))
index 0669db6..b52404e 100644 (file)
@@ -1640,7 +1640,7 @@ supposed to follow something: a template character or a ()-group.
 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
index 07d21fc..36082b0 100644 (file)
@@ -9,7 +9,7 @@
        fred() ;
 
      Use of $# is deprecated
-     $* has been removed
+     $* is no longer supported
 
        $a = ${"#"} ;
        $a = ${"*"} ;
@@ -51,4 +51,4 @@ $a = ${"#"};
 $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.