@@ -3710,7 +3710,7 @@ if (PL_e_script) Perl_croak(aTHX_ "Can't open "BIT_BUCKET": %s\n", Strerror(errno)); else - Perl_croak(aTHX_ "Can't open perl script \"%s\": %s\n", + Perl_croak(aTHX_ "Can't open Perl source file \"%s\": %s\n", CopFILE(PL_curcop), Strerror(errno)); } return fdscript;