diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-13 16:04:18 +0100 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-10-16 12:30:17 -0400 |
| commit | d1d15184c41c6ad4f16829561163cd118e5ae917 (patch) | |
| tree | 65d9365479cc68a7c33c3388058bc9654e4a500b /pp_sys.c | |
| parent | 43b3daf05d64926950dcc26b6a3e77b7c8f513da (diff) | |
| download | perl-d1d15184c41c6ad4f16829561163cd118e5ae917.tar.gz | |
Enable deprecation warnings by default.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -522,8 +522,9 @@ PP(pp_open) IoFLAGS(GvIOp(gv)) &= ~IOf_UNTAINT; if (IoDIRP(io)) - Perl_ck_warner(aTHX_ packWARN2(WARN_IO, WARN_DEPRECATED), - "Opening dirhandle %s also as a file", GvENAME(gv)); + Perl_ck_warner_d(aTHX_ packWARN2(WARN_IO, WARN_DEPRECATED), + "Opening dirhandle %s also as a file", + GvENAME(gv)); mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar); if (mg) { @@ -3829,8 +3830,9 @@ PP(pp_open_dir) goto nope; if ((IoIFP(io) || IoOFP(io))) - Perl_ck_warner(aTHX_ packWARN2(WARN_IO, WARN_DEPRECATED), - "Opening filehandle %s also as a directory", GvENAME(gv)); + Perl_ck_warner_d(aTHX_ packWARN2(WARN_IO, WARN_DEPRECATED), + "Opening filehandle %s also as a directory", + GvENAME(gv)); if (IoDIRP(io)) PerlDir_close(IoDIRP(io)); if (!(IoDIRP(io) = PerlDir_open(dirname))) |