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 /gv.c | |
| 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
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 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; |