Change 34216 by [EMAIL PROTECTED] on 2008/08/22 09:13:30
Note that we have no test coverage for this particular warning.
Affected files ...
... //depot/perl/universal.c#193 edit
Differences ...
==== //depot/perl/universal.c#193 (text) ====
Index: perl/universal.c
--- perl/universal.c#192~34151~ 2008-07-17 23:36:09.000000000 -0700
+++ perl/universal.c 2008-08-22 02:13:30.000000000 -0700
@@ -67,6 +67,8 @@
SV* const basename_sv = *svp++;
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.
