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

p4raw-id: //depot/perl@1776

diff --git a/Changes b/Changes
index cd9e864..79566f1 100644 (file)
--- 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 9cdf7ae..91147fd 100644 (file)
--- 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 16e8bc9..698abfb 100644 (file)
--- 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 9ed8b6f..2db0777 100644 (file)
--- 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