This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
require die msg: only mention @INC if used
[perl5.git] / pp_ctl.c
index 072f529..69280e2 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -4096,7 +4096,7 @@ S_require_file(pTHX_ SV *sv)
                DIE(aTHX_ "Can't locate %s:   %s: %s",
                    name, tryname, Strerror(saved_errno));
            } else {
-               if (namesv) {                   /* did we lookup @INC? */
+               if (path_searchable) {          /* did we lookup @INC? */
                    AV * const ar = GvAVn(PL_incgv);
                    SSize_t i;
                    SV *const msg = newSVpvs_flags("", SVs_TEMP);