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

p4raw-id: //depot/perl@1776

1 files changed, 2 insertions, 0 deletions

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);