From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 15 Jun 2003 21:01:18 +0000 (+0000)
Subject: Rename again the warning about $* being no longer supported
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b332a202cf8cca5abe3fcf994d3993e1a7e06c1;p=p5sagit%2Fp5-mst-13.2.git

Rename again the warning about $* being no longer supported
(and update perldiag this time!)

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

diff --git a/gv.c b/gv.c
index 74c589e..a5dbb95 100644
--- 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))
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 0669db6..b52404e 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -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
diff --git a/t/lib/warnings/gv b/t/lib/warnings/gv
index 07d21fc..36082b0 100644
--- a/t/lib/warnings/gv
+++ b/t/lib/warnings/gv
@@ -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.