Change 34217 by [EMAIL PROTECTED] on 2008/08/22 14:49:49
No, I didn't mean to commit the version *with* the abort(). It was
meant to be removed once I'd proved it by running the tests without
aborting. Oops. use more 'coffee';
Affected files ...
... //depot/perl/universal.c#194 edit
Differences ...
==== //depot/perl/universal.c#194 (text) ====
Index: perl/universal.c
--- perl/universal.c#193~34216~ 2008-08-22 02:13:30.000000000 -0700
+++ perl/universal.c 2008-08-22 07:49:49.000000000 -0700
@@ -68,7 +68,6 @@
HV* const basestash = gv_stashsv(basename_sv, 0);
if (!basestash) {
/* We have no test coverage for this block, as of 2008/08. */
- abort();
if (ckWARN(WARN_SYNTAX))
Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
"Can't locate package %"SVf" for the parents of %s",
End of Patch.