This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[win32] merge changes#989,990,992 from maintbranch
[perl5.git] / pp_ctl.c
index 55881de..ede74b5 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2463,7 +2463,7 @@ PP(pp_require)
     SvREFCNT_dec(namesv);
     if (!tryrsfp) {
        if (op->op_type == OP_REQUIRE) {
-           SV *msg = sv_2mortal(newSVpvf("Can't locate file '%s' in @INC", name));
+           SV *msg = sv_2mortal(newSVpvf("Can't locate '%s' in @INC", name));
            SV *dirmsgsv = NEWSV(0, 0);
            AV *ar = GvAVn(incgv);
            I32 i;