Change 35072 by [EMAIL PROTECTED] on 2008/12/09 22:53:03
Integrate:
[ 34216]
Note that we have no test coverage for this particular warning.
[ 34217]
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/maint-5.10/perl/universal.c#9 integrate
Differences ...
==== //depot/maint-5.10/perl/universal.c#9 (text) ====
Index: perl/universal.c
--- perl/universal.c#8~35029~ 2008-12-05 17:58:18.000000000 -0800
+++ perl/universal.c 2008-12-09 14:53:03.000000000 -0800
@@ -66,6 +66,7 @@
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. */
if (ckWARN(WARN_SYNTAX))
Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
"Can't locate package %"SVf" for the parents of %s",
End of Patch.
