Integrate:

[ 18888]
Subject: Re: [perl #21505] 5.8.0 lib/Config test failure due to compiler flag
From: Nicholas Clark <nick@unfortu.net>
Date: Sun, 9 Mar 2003 21:24:46 +0000
Message-ID: <20030309212445.GE277@Bagpuss.unfortu.net>

[ 18889]
Subject: Re: odd (or not so odd?) segmentation fault in 5.8.0
From: sthoenna@efn.org (Yitzchak Scott-Thoennes)
Date: Fri, 07 Mar 2003 13:12:49 -0800
Message-ID: <RtQa+gzkg2kF092yn@efn.org>

[ 18891]
A new test, to check that signal numbers are actually positive,
and that there is a consistent number of signals available.

[ 18899]
VMS has an extra \n at the end, and I assume Windows has \r\n.

[ 18902]
Patch from Craig Berry to resolve test failures in VMS.
Will poke the Net::Ping author.

[ 18903]
A rejected hunk of #18902 reapplied.

[ 18904]
Subject: [PATCH] typos and other minor things
From: "Todd C. Miller" <Todd.Miller@courtesan.com>
Date: Mon, 10 Mar 2003 21:00:55 -0700
Message-Id: <200303110400.h2B40tEQ018838@xerxes.courtesan.com>

[ 18905]
Subject: [patch] PL_taint_warn falls between chairs in perl_clone()
From: Stas Bekman <stas@stason.org>
Date: Tue, 11 Mar 2003 17:09:02 +1100
Message-ID: <3E6D7D7E.5000704@stason.org>

[ 18906]
Add reminders to intrpvar.h about perl_clone(), as suggested by Stas.

[ 18907]
Add missing intrpvar clonings to perl_clone.
Also move the IDBassertion to the end since there's
no particular reason to break bincompat for that.

[ 18908]
Missed some, cryptically.

[ 18909]
Upgrade to cperl-mode 5.0, from IlyaZ.

[ 18910]
Subject: [PATCH] clear PL_exitlist in perl_destruct
From: "Craig A. Berry" <craigberry@mac.com>
Date: Tue, 11 Mar 2003 00:34:39 -0600
Message-ID: <3E6D837F.7000506@mac.com>
p4raw-link: @18910 on //depot/perl: 1c4916e5d90f0028c91aaa6bda8d297844c9610e
p4raw-link: @18909 on //depot/perl: 8cfd79877cc07a3e6d12a2a552e0e29b4734a54c
p4raw-link: @18908 on //depot/perl: 2c818685e5add67d864761f5d48269de7512a49d
p4raw-link: @18907 on //depot/perl: 6c3182a5d146d89e95f0ea81076255af93dd834f
p4raw-link: @18906 on //depot/perl: 02506efeee07f72c4573c458102aba9511f70372
p4raw-link: @18905 on //depot/perl: 7135f00b3e4ea2f1ab51cd8993790dca806e627b
p4raw-link: @18904 on //depot/perl: a6d0563455796929d2aae5a18fb57e80a20f87bd
p4raw-link: @18903 on //depot/perl: 38295cca2bcea18247fdba079ba504a69c9fda94
p4raw-link: @18902 on //depot/perl: bb4e15c885adf67b857fe3eac0488b3b9685b93d
p4raw-link: @18899 on //depot/perl: a4c0dc87024a3e2a076df79e21b4fe3438f88e49
p4raw-link: @18891 on //depot/perl: 059ca955ed31579c1bd941d140a77868e99c2fdf
p4raw-link: @18889 on //depot/perl: b77f7d40943072c6b8a82e9e0fbdcc2d346120ee
p4raw-link: @18888 on //depot/perl: 9d60fda321e877ece79517ad795f7f4cf63bb3a7

p4raw-id: //depot/maint-5.8/perl@18911
p4raw-integrated: from //depot/perl@18898 'copy in' emacs/cperl-mode.el
	(@10980..) lib/ftp.pl (@12954..) pod/pod2latex.PL (@13142..)
	win32/vmem.h (@14284..) lib/Net/NNTP.pm (@14913..)
	lib/Tie/File/t/05_size.t (@15621..) ext/IO/lib/IO/Socket.pm
	(@16596..) ext/threads/shared/t/cond.t (@16734..)
	ext/PerlIO/encoding/encoding.xs (@17336..)
	ext/PerlIO/via/via.pm (@17517..) pod/perlthrtut.pod (@17967..)
	ext/DB_File/DB_File.xs (@18062..) t/op/tie.t (@18121..)
	lib/charnames.pm (@18217..) utils/libnetcfg.PL (@18510..)
	lib/Pod/Perldoc.pm (@18534..) lib/utf8.t (@18660..)
	lib/Net/Ping.pm lib/Net/Ping/t/190_alarm.t (@18671..)
	ext/Storable/Storable.xs (@18714..) ext/DB_File/DB_File.pm
	(@18780..) t/run/switchC.t (@18802..) t/op/magic.t (@18803..)
	lib/Net/FTP.pm (@18818..) ext/Devel/PPPort/PPPort.pm (@18826..)
	t/op/sprintf.t (@18861..) t/io/utf8.t (@18876..) 'merge in'
	pod/perlintern.pod (@18311..) ext/B/B/Concise.pm (@18737..)
	pod/perlfunc.pod (@18751..) intrpvar.h (@18766..) pad.c
	regcomp.c (@18801..) pod/perldiag.pod (@18828..) mg.c
	(@18839..) vms/vms.c (@18852..) sv.c (@18863..) perl.c
	(@18873..)
p4raw-integrated: from //depot/perl@18888 'ignore' lib/Config.t
	(@18077..)

1 files changed, 18 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 7c55ee4ee9..f88f8ebebb 100644
--- a/sv.c
+++ b/sv.c
@@ -10659,6 +10659,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
     /* internal state */
     PL_tainting		= proto_perl->Itainting;
+    PL_taint_warn       = proto_perl->Itaint_warn;
     PL_maxo		= proto_perl->Imaxo;
     if (proto_perl->Iop_mask)
 	PL_op_mask	= SAVEPVN(proto_perl->Iop_mask, PL_maxo);
@@ -10867,6 +10868,23 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_utf8_idstart	= sv_dup_inc(proto_perl->Iutf8_idstart, param);
     PL_utf8_idcont	= sv_dup_inc(proto_perl->Iutf8_idcont, param);
 
+    /* Did the locale setup indicate UTF-8? */
+    PL_utf8locale	= proto_perl->Iutf8_locale;
+    /* Unicode features (see perlrun/-C) */
+    PL_unicode		= proto_perl->Iunicode;
+
+    /* Pre-5.8 signals control */
+    PL_signals		= proto_perl->Isignals;
+
+    /* times() ticks per second */
+    PL_clocktick	= proto_perl->Iclocktick;
+
+    /* Recursion stopper for PerlIO_find_layer */
+    PL_in_load_module	= proto_perl->Iin_load_module;
+
+    /* sort() routine */
+    PL_sort_RealCmp	= proto_perl->Isort_RealCmp;
+
     /* swatch cache */
     PL_last_swash_hv	= Nullhv;	/* reinits on demand */
     PL_last_swash_klen	= 0;