[win32] merge another toke.c patch and its dependent (very carefully)

	    #32:  "Support C<Package::> as function-blind bearword"
	   From:  Chip Salzenberg
	  Files:  toke.c
	--------
	    #86:  "Make warning on C<Nosuch::> optional, add to perl{diag,delta}.pod"
	   From:  Gurusamy Sarathy
	  Files:  toke.c pod/perldelta.pod pod/perldiag.pod

p4raw-id: //depot/win32/perl@633

2 files changed, 12 insertions, 0 deletions

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 5c99211e62..ac02ac68af 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -1228,6 +1228,12 @@ that can no longer be found in the table.
 as an lvalue, which is pretty strange.  Perhaps you forgot to
 dereference it first.  See L<perlfunc/substr>.
 
+=item Bareword "%s" refers to nonexistent package
+
+(W) You used a qualified bareword of the form C<Foo::>, but
+the compiler saw no other uses of that namespace before that point.
+Perhaps you need to predeclare a package?
+
 =item Can't redefine active sort subroutine %s
 
 (F) Perl optimizes the internal handling of sort subroutines and keeps
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 5f2876bc73..35eff72ef7 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -361,6 +361,12 @@ Perl yourself.
 subroutine identifier, in curly braces or to the left of the "=>" symbol.
 Perhaps you need to predeclare a subroutine?
 
+=item Bareword "%s" refers to nonexistent package
+
+(W) You used a qualified bareword of the form C<Foo::>, but
+the compiler saw no other uses of that namespace before that point.
+Perhaps you need to predeclare a package?
+
 =item BEGIN failed--compilation aborted
 
 (F) An untrapped exception was raised while executing a BEGIN subroutine.