Change 34353 by [EMAIL PROTECTED] on 2008/09/11 22:11:32
Abolish the warning "Can't locate package %"SVf" for the parents of %s"
which doesn't tell you anything you won't discover soon enough when you
try to call a method. (Or haven't already been warned about when @ISA
was linearised)
Affected files ...
... //depot/perl/pod/perldiag.pod#499 edit
... //depot/perl/universal.c#198 edit
Differences ...
==== //depot/perl/pod/perldiag.pod#499 (text) ====
Index: perl/pod/perldiag.pod
--- perl/pod/perldiag.pod#498~34224~ 2008-08-24 07:52:12.000000000 -0700
+++ perl/pod/perldiag.pod 2008-09-11 15:11:32.000000000 -0700
@@ -902,13 +902,6 @@
(W syntax) The @ISA array contained the name of another package that
doesn't seem to exist.
-=item Can't locate package %s for the parents of %s
-
-(W syntax) You did not define (or require/use) the first package,
-which is named as a (possibly indirect) parent of the second by
-C<@ISA> inheritance. Perl will treat this as if the undefined
-package had an empty C<@ISA>.
-
=item Can't locate PerlIO%s
(F) You tried to use in open() a PerlIO layer that does not exist,
==== //depot/perl/universal.c#198 (text) ====
Index: perl/universal.c
--- perl/universal.c#197~34352~ 2008-09-11 14:46:28.000000000 -0700
+++ perl/universal.c 2008-09-11 15:11:32.000000000 -0700
@@ -67,14 +67,6 @@
while (items--) {
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",
- SVfARG(basename_sv), hvname);
- continue;
- }
if(name_stash == basestash || strEQ(name, SvPVX(basename_sv)))
return TRUE;
}
End of Patch.
