From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 14 Jun 2003 20:08:52 +0000 (+0000)
Subject: Rename the warning about $* being removed,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d8ca66aac9409c1386c9b0eb8a0f8bd9e91f0ee;p=p5sagit%2Fp5-mst-13.2.git

Rename the warning about $* being removed,
as suggested by Dave Mitchell

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

diff --git a/gv.c b/gv.c
index b944d44..74c589e 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),
-		    "$* has been removed");
+		    "The variable \"$*\" is no longer supported");
 	break;
     case '#':
 	if (len == 1 && sv_type == SVt_PV && ckWARN2(WARN_DEPRECATED, WARN_SYNTAX))
diff --git a/t/lib/warnings/gv b/t/lib/warnings/gv
index 8d2fef5..07d21fc 100644
--- a/t/lib/warnings/gv
+++ b/t/lib/warnings/gv
@@ -51,4 +51,4 @@ $a = ${"#"};
 $a = ${"*"};
 EXPECT
 Use of $# is deprecated at - line 3.
-$* has been removed at - line 4.
+The variable "$*" is no longer supported at - line 4.