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 (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),
-                   "$* 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 (file)
--- 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.