diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-14 20:08:52 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-14 20:08:52 +0000 |
| commit | 9d8ca66aac9409c1386c9b0eb8a0f8bd9e91f0ee (patch) | |
| tree | ee15dea58557dbf0c51d401eba437ad69bed7bff | |
| parent | 1673d79ec73dea09f6ee503fbe23e5c7945eba82 (diff) | |
| download | perl-9d8ca66aac9409c1386c9b0eb8a0f8bd9e91f0ee.tar.gz | |
Rename the warning about $* being removed,
as suggested by Dave Mitchell
p4raw-id: //depot/perl@19784
| -rw-r--r-- | gv.c | 2 | ||||
| -rw-r--r-- | t/lib/warnings/gv | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -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 8d2fef5601..07d21fc39f 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. |