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.

Reply via email to