#endif
has_err = SvTRUE(ERRSV);
- if (IN_PERL_COMPILETIME && !had_err && has_err)
- ++PL_error_count;
+ if (IN_PERL_COMPILETIME && !had_err && has_err) {
+ if (PL_errors)
+ sv_catsv(PL_errors, ERRSV);
+ else
+ Perl_warn(aTHX_ "%s", SvPV_nolen(ERRSV));
+#ifdef PL_parser
+ if (PL_parser)
+#endif
+ ++PL_error_count;
+ }
SPAGAIN;
svr = POPs;