diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-11 19:31:40 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-11 19:31:40 +0000 |
| commit | fafcdf9e12935d93b4cd9172ce7cd496485ba41b (patch) | |
| tree | 57af5934e817b49fcb17b1cd5552313522645d8b | |
| parent | e9569a7a55e6b33419f56b3697245a199938eb42 (diff) | |
| download | perl-fafcdf9e12935d93b4cd9172ce7cd496485ba41b.tar.gz | |
Turn the "$# / $* is no longer supported" warnings into
severe warnings (as suggested by Audrey Tang)
p4raw-id: //depot/perl@31589
| -rw-r--r-- | gv.c | 2 | ||||
| -rw-r--r-- | pod/perldiag.pod | 4 | ||||
| -rw-r--r-- | t/lib/warnings/gv | 5 |
3 files changed, 5 insertions, 6 deletions
@@ -1230,7 +1230,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, } case '*': case '#': - if (sv_type == SVt_PV && ckWARN2(WARN_DEPRECATED, WARN_SYNTAX)) + if (sv_type == SVt_PV && ckWARN2_d(WARN_DEPRECATED, WARN_SYNTAX)) Perl_warner(aTHX_ packWARN2(WARN_DEPRECATED, WARN_SYNTAX), "$%c is no longer supported", *name); break; diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 338fd12da6..c91f90507a 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -2177,13 +2177,13 @@ neither as a system call or an ioctl call (SIOCATMARK). =item $* is no longer supported -(D deprecated) The special variable C<$*>, deprecated in older perls, has +(S deprecated, syntax) 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 C<//m> and C<//s> regexp modifiers instead. =item $# is no longer supported -(D deprecated) The special variable C<$#>, deprecated in older perls, has +(S deprecated, syntax) The special variable C<$#>, deprecated in older perls, has been removed as of 5.9.3 and is no longer supported. You should use the printf/sprintf functions instead. diff --git a/t/lib/warnings/gv b/t/lib/warnings/gv index 17ab2f02d4..42565f2325 100644 --- a/t/lib/warnings/gv +++ b/t/lib/warnings/gv @@ -43,12 +43,11 @@ EXPECT Use of inherited AUTOLOAD for non-method main::fred() is deprecated at - line 5. ######## # gv.c -use warnings 'deprecated' ; $a = ${"#"}; $a = ${"*"}; no warnings 'deprecated' ; $a = ${"#"}; $a = ${"*"}; EXPECT -$# is no longer supported at - line 3. -$* is no longer supported at - line 4. +$# is no longer supported at - line 2. +$* is no longer supported at - line 3. |