From 21b005c93f9d47fdacd6d19b6e4bd297b891ab41 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Wed, 8 Mar 2023 14:46:12 +0100 Subject: warnings.pm - add deprecated::dot_in_inc warings category Instead of using a generic warnings category switch to fine grained control. --- pp_ctl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index b98c197252..f7e4f055d7 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -4894,7 +4894,7 @@ S_require_file(pTHX_ SV *sv) /* the complication is to match the logic from doopen_pm() so * we don't treat do "sda1" as a previously successful "do". */ - bool do_warn = namesv && ckWARN_d(WARN_DEPRECATED) + bool do_warn = namesv && ckWARN_d(WARN_DEPRECATED__DOT_IN_INC) && PerlLIO_stat(name, &st) == 0 && !S_ISDIR(st.st_mode) && !S_ISBLK(st.st_mode) && (io = PerlIO_openn(aTHX_ ":", PERL_SCRIPT_MODE, -1, 0, 0, NULL, 1, &sv)) != NULL; if (io) @@ -4902,7 +4902,7 @@ S_require_file(pTHX_ SV *sv) RESTORE_ERRNO; if (do_warn) { - Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), + Perl_warner(aTHX_ packWARN(WARN_DEPRECATED__DOT_IN_INC), "do \"%s\" failed, '.' is no longer in @INC; " "did you mean do \"./%s\"?", name, name); -- cgit v1.2.1