fix coredump with MULTIPLICITY (ckWARN() needs early curcop init)

p4raw-id: //depot/perl@1776

4 files changed, 39 insertions, 0 deletions

diff --git a/Changes b/Changes
index cd9e864b96..79566f1d77 100644
--- a/Changes
+++ b/Changes
@@ -78,6 +78,39 @@ Version 5.005_51        Development release working toward 5.006
 ----------------
 
 ____________________________________________________________________________
+[  1775] By: gsar                                  on 1998/08/09  14:35:33
+        Log: tweak warning test
+     Branch: perl
+           ! t/pragma/warn-toke
+____________________________________________________________________________
+[  1774] By: gsar                                  on 1998/08/09  14:13:46
+        Log: add missing dTHR; notes for test failures due to small stacksize
+     Branch: perl
+	   ! doio.c gv.c op.c sv.c t/pragma/warn-mg t/pragma/warn-regexec
+           ! toke.c universal.c util.c
+____________________________________________________________________________
+[  1773] By: gsar                                  on 1998/08/09  11:31:53
+        Log: lexical warnings; tweaks to places that didn't apply correctly
+             From:    pmarquess@bfsec.bt.co.uk (Paul Marquess)
+             Date:    Wed, 29 Jul 1998 09:28:45 BST
+             Message-Id: <9807290828.AA26286@claudius.bfsec.bt.co.uk>
+             Subject: lexical warnings patch for 5.005_50
+     Branch: perl
+	   + README.lexwarn lib/warning.pm t/pragma/warn-2use
+	   + t/pragma/warn-3both t/pragma/warn-4lint t/pragma/warn-5nolint
+	   + t/pragma/warn-doio t/pragma/warn-gv t/pragma/warn-mg
+	   + t/pragma/warn-op t/pragma/warn-perl t/pragma/warn-perly
+	   + t/pragma/warn-pp t/pragma/warn-pp_ctl t/pragma/warn-pp_hot
+	   + t/pragma/warn-pp_sys t/pragma/warn-regcomp
+	   + t/pragma/warn-regexec t/pragma/warn-sv t/pragma/warn-taint
+	   + t/pragma/warn-toke t/pragma/warn-universal t/pragma/warn-util
+           + warning.h warning.pl
+	   ! Changes MANIFEST Makefile.SH cop.h doio.c global.sym gv.c
+	   ! lib/diagnostics.pm mg.c op.c op.h perl.c perl.h pp.c pp_ctl.c
+	   ! pp_hot.c pp_sys.c proto.h regcomp.c regexec.c sv.c t/op/tie.t
+	   ! t/pragma/warn-1global t/pragma/warning.t taint.c toke.c
+           ! universal.c util.c
+____________________________________________________________________________
 [  1772] By: gsar                                  on 1998/08/08  23:06:00
         Log: bump patchlevel to 5.005_51
      Branch: perl
diff --git a/MANIFEST b/MANIFEST
index 9cdf7ae56c..91147fda99 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1132,6 +1132,9 @@ t/pragma/strict.t	See if strictures work
 t/pragma/subs.t		See if subroutine pseudo-importation works
 t/pragma/warn-1global	Tests of global warnings for warning.t
 t/pragma/warn-2use	Tests for "use warning" for warning.t
+t/pragma/warn-3both	Tests for interaction of $^W and "use warning"
+t/pragma/warn-4lint	Tests for -W switch
+t/pragma/warn-5nolint	Tests for -X switch
 t/pragma/warn-doio	Tests for doio.c for warning.t
 t/pragma/warn-gv	Tests for gv.c for warning.t
 t/pragma/warn-mg	Tests for mg.c for warning.t
diff --git a/perl.c b/perl.c
index 16e8bc9628..698abfbda8 100644
--- a/perl.c
+++ b/perl.c
@@ -141,6 +141,8 @@ perl_construct(register PerlInterpreter *sv_interp)
 	thr = init_main_thread();
 #endif /* USE_THREADS */
 
+	PL_curcop = &PL_compiling;	/* needed by ckWARN, right away */
+
 	PL_linestr = NEWSV(65,79);
 	sv_upgrade(PL_linestr,SVt_PVIV);
 
diff --git a/pod/perlhist.pod b/pod/perlhist.pod
index 9ed8b6f52e..2db0777c71 100644
--- a/pod/perlhist.pod
+++ b/pod/perlhist.pod
@@ -302,6 +302,7 @@ the strings?).
  Graham   5.005_03      1998-           
 
  Sarathy  5.005_50      1998-Jul-26     The 5.006 development track.
+          5.005_51      1998-Aug-09
 
 =head2 SELECTED RELEASE SIZES