Integrate mainline

p4raw-id: //depot/perlio@16612

6 files changed, 278 insertions, 4 deletions

diff --git a/Changes b/Changes
index 1f3fdee414..defdd48b6c 100644
--- a/Changes
+++ b/Changes
@@ -28,6 +28,266 @@ example from http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/
 Version v5.7.X		Development release working toward v5.8
 --------------
 ____________________________________________________________________________
+[ 16610] By: jhi                                   on 2002/05/15  13:47:40
+        Log: Make fresh_perl skip the embedded UTF-8 tests on EBCDIC.
+     Branch: perl
+	   ! pod/perldelta.pod t/run/fresh_perl.t
+____________________________________________________________________________
+[ 16609] By: jhi                                   on 2002/05/15  13:46:55
+        Log: Document some of the known EBCDIC problems with Storable.
+             (There is more, but need to do more tests.)
+     Branch: perl
+	   ! ext/Storable/Storable.pm
+____________________________________________________________________________
+[ 16608] By: jhi                                   on 2002/05/15  12:44:06
+        Log: Purify finding: jperl.t causes a few Array Bounds Reads
+             (one byte too far in a malloced buffer) at various spots
+             in regcomp.c, all the buffers malloced by SvGROW() in
+             sv_recode_to_utf8().
+     Branch: perl
+	   ! sv.c
+____________________________________________________________________________
+[ 16607] By: nick                                  on 2002/05/15  06:57:26
+        Log: Integrate mainline
+     Branch: perlio
+	  +> Porting/thirdclean
+	  !> (integrate 36 files)
+____________________________________________________________________________
+[ 16606] By: jhi                                   on 2002/05/15  04:24:45
+        Log: Subject: [PATCH] Re: use of lc module names and warnings
+             From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
+             Date: Sun, 12 May 2002 23:09:46 +0200
+             Message-ID: <20020512230946.E699@rafael>
+     Branch: perl
+	   ! toke.c
+____________________________________________________________________________
+[ 16605] By: jhi                                   on 2002/05/15  03:58:24
+        Log: More rule tweakage.
+     Branch: perl
+	   ! Porting/thirdclean
+____________________________________________________________________________
+[ 16604] By: jhi                                   on 2002/05/15  00:40:46
+        Log: Subject: [PATCH] Fix Devel::DProf debugging aid
+             From: Sam Tregar <sam@tregar.com>
+             Date: Tue, 14 May 2002 21:27:05 -0400 (EDT)
+             Message-ID: <Pine.LNX.4.44.0205142123270.24343-100000@localhost.localdomain>
+     Branch: perl
+	   ! ext/Devel/DProf/DProf.xs
+____________________________________________________________________________
+[ 16603] By: jhi                                   on 2002/05/15  00:36:22
+        Log: $VERSIONize.
+     Branch: perl
+	   ! lib/ExtUtils/Liblist.pm lib/ExtUtils/MM_MacOS.pm
+____________________________________________________________________________
+[ 16602] By: jhi                                   on 2002/05/15  00:34:46
+        Log: Third Degree: name the op/foo.t as op_foo.
+     Branch: perl
+	   ! t/TEST
+____________________________________________________________________________
+[ 16601] By: jhi                                   on 2002/05/15  00:24:28
+        Log: Read of uninitialized heap found by Third Degree
+             (e.g. in t/op/subst.t)
+     Branch: perl
+	   ! scope.c
+____________________________________________________________________________
+[ 16600] By: jhi                                   on 2002/05/14  23:57:10
+        Log: Add more rules.
+     Branch: perl
+	   ! Porting/thirdclean
+____________________________________________________________________________
+[ 16599] By: jhi                                   on 2002/05/14  22:15:41
+        Log: Subject: [PATCH] allow use threads qw(yield)
+             From: Dave Mitchell <davem@fdgroup.com>
+             Date: Tue, 14 May 2002 22:49:47 +0100
+             Message-ID: <20020514224947.F25049@fdgroup.com>
+     Branch: perl
+	   ! ext/threads/threads.pm ext/threads/threads.xs
+____________________________________________________________________________
+[ 16598] By: jhi                                   on 2002/05/14  20:35:21
+        Log: Micropatch from Olaf Flebbe.
+     Branch: perl
+	   ! epoc/epoc.c
+____________________________________________________________________________
+[ 16597] By: rgs                                   on 2002/05/14  20:18:33
+        Log: Subject: perlhack.pod typos [PATCH]
+             From: "John P. Linderman" <jpl@research.att.com>
+             Date: Tue, 14 May 2002 12:31:21 -0400 (EDT)
+             Message-ID: <200205141631.MAA79121@raptor.research.att.com>
+     Branch: perl
+	   ! pod/perlhack.pod
+____________________________________________________________________________
+[ 16596] By: rgs                                   on 2002/05/14  20:14:14
+        Log: Subject: typo in Socket.pm
+             From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
+             Date: Tue, 14 May 2002 12:02:47 +0200
+             Message-ID: <20020514120206.B758.H.M.BRAND@hccnet.nl>
+     Branch: perl
+	   ! ext/IO/lib/IO/Socket.pm
+____________________________________________________________________________
+[ 16595] By: jhi                                   on 2002/05/14  17:27:26
+        Log: The #16592 needs this.
+     Branch: perl
+	   ! embedvar.h perlapi.h
+____________________________________________________________________________
+[ 16594] By: sky                                   on 2002/05/14  17:08:01
+        Log: Subject: Re: lib/sort.t failure [PATCH]
+             From: "John P. Linderman" <jpl@research.att.com>
+             Date: mån maj 13, 2002  05:05:45  Europe/Stockholm
+             Message-Id: <200205131505.LAA46150@raptor.research.att.com>
+     Branch: perl
+	   ! pod/perlfunc.pod
+____________________________________________________________________________
+[ 16593] By: jhi                                   on 2002/05/14  16:09:59
+        Log: Add a script for cleaning out the "known noise"
+             from Third Degree reports: either noise caused
+             by libc itself, or Perl_yyparse leaks.
+     Branch: perl
+	   + Porting/thirdclean
+	   ! MANIFEST
+____________________________________________________________________________
+[ 16592] By: sky                                   on 2002/05/14  15:21:39
+        Log: Turn the sort RealCmp for stable quicksorts into a
+             threadsafe per interpreter values.
+     Branch: perl
+	   ! embedvar.h intrpvar.h perlapi.h pp_sort.c
+____________________________________________________________________________
+[ 16591] By: jhi                                   on 2002/05/14  13:48:46
+        Log: reentr.h affects more C files than just reentr.c
+     Branch: perl
+	   ! locale.c pp.c pp_sys.c
+____________________________________________________________________________
+[ 16590] By: jhi                                   on 2002/05/14  13:21:54
+        Log: Document reentr.pl a bit better.  Still rather
+             convoluted code, but it ain't broken, so...
+     Branch: perl
+	   ! reentr.h reentr.pl
+____________________________________________________________________________
+[ 16589] By: jhi                                   on 2002/05/14  03:27:01
+        Log: z/OS update: not all Storable was clear yet.
+     Branch: perl
+	   ! pod/perldelta.pod
+____________________________________________________________________________
+[ 16588] By: jhi                                   on 2002/05/14  03:14:10
+        Log: Avoid potentially empty struct.
+     Branch: perl
+	   ! reentr.h reentr.pl
+____________________________________________________________________________
+[ 16587] By: jhi                                   on 2002/05/14  01:55:47
+        Log: Todo tweaks.
+     Branch: perl
+	   ! pod/perltodo.pod
+____________________________________________________________________________
+[ 16586] By: jhi                                   on 2002/05/13  23:09:36
+        Log: Subject: [PATCH] various minor fixes in threads.            
+             From: Dave Mitchell <davem@fdgroup.com>
+             Date: Mon, 13 May 2002 23:48:22 +0100      
+             Message-ID: <20020513234822.G21318@fdgroup.com>
+     Branch: perl
+	   ! dump.c ext/threads/shared/shared.xs
+____________________________________________________________________________
+[ 16585] By: jhi                                   on 2002/05/13  23:06:31
+        Log: Subject: Re: unsigned char hashes (Re: perl@16539)
+             From: PPrymmer@factset.com
+             Date: Mon, 13 May 2002 17:37:28 -0400
+             Message-ID: <OFA6169DE6.9ED4C891-ON85256BB8.00767EB7@55.25.11>
+     Branch: perl
+	   ! vms/vms.c
+____________________________________________________________________________
+[ 16584] By: jhi                                   on 2002/05/13  23:05:04
+        Log: Subject: Re: FreeBSD mostly OK. [nwc10@colon.colondot.net: Report /export/home/nwc10/Even-Smoke/Smoke]
+             From: Nicholas Clark <nick@unfortu.net>    
+             Date: Mon, 13 May 2002 21:45:47 +0100
+             Message-ID: <20020513204546.GC310@Bagpuss.unfortu.net>
+     Branch: perl
+	   ! lib/ExtUtils/t/Constant.t
+____________________________________________________________________________
+[ 16583] By: jhi                                   on 2002/05/13  23:04:00
+        Log: Subject: [PATCH] Re: FreeBSD mostly OK. [nwc10@colon.colondot.net: Report /export/home/nwc10/Even-Smoke/Smoke]
+             From: Nicholas Clark <nick@unfortu.net>    
+             Date: Mon, 13 May 2002 21:47:38 +0100
+             Message-ID: <20020513204738.GD310@Bagpuss.unfortu.net>
+     Branch: perl
+	   ! lib/Benchmark.t
+____________________________________________________________________________
+[ 16582] By: jhi                                   on 2002/05/13  23:01:05
+        Log: Subject: WinCE several touches
+             From: "Vadim Konovalov" <vkonovalov@peterstar.ru>
+             Date: Tue, 14 May 2002 00:43:11 +0400      
+             Message-ID: <007b01c1fabe$cc8cbbf0$785cc3d9@vad>
+     Branch: perl
+	   ! lib/ExtUtils/MM_Unix.pm utf8.c wince/Makefile.ce
+	   ! wince/config_h.PL
+____________________________________________________________________________
+[ 16581] By: jhi                                   on 2002/05/13  22:57:51
+        Log: Subject: Re: perl@16573
+             From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
+             Date: Mon, 13 May 2002 18:30:35 +0200
+             Message-Id: <20020513182617.5525.H.M.BRAND@hccnet.nl>
+             
+             (gcc 3.0 vs 64-bit hpux hints)
+     Branch: perl
+	   ! hints/hpux.sh
+____________________________________________________________________________
+[ 16580] By: sky                                   on 2002/05/13  19:38:09
+        Log: Make the point a bit clearer after suggestion from Merijin
+     Branch: perl
+	   ! pod/perltodo.pod
+____________________________________________________________________________
+[ 16579] By: rgs                                   on 2002/05/13  18:51:54
+        Log: perltodo update.
+     Branch: perl
+	   ! pod/perltodo.pod
+____________________________________________________________________________
+[ 16578] By: rgs                                   on 2002/05/13  18:49:39
+        Log: Subject: README.aix update
+             From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
+             Date: Mon, 13 May 2002 19:02:47 +0200
+             Message-ID: <20020513190200.552D.H.M.BRAND@hccnet.nl>
+     Branch: perl
+	   ! README.aix
+____________________________________________________________________________
+[ 16577] By: dougm                                 on 2002/05/13  18:45:01
+        Log: export PerlIOBuf_get_base for win32 extension linkage
+     Branch: perl
+	   ! makedef.pl
+____________________________________________________________________________
+[ 16576] By: nick                                  on 2002/05/13  18:20:22
+        Log: Integrate mainline
+     Branch: perlio
+	  !> Changes README.vos ext/threads/shared/shared.pm
+	  !> ext/threads/shared/t/0nothread.t
+	  !> ext/threads/shared/t/av_refs.t
+	  !> ext/threads/shared/t/av_simple.t ext/threads/shared/t/cond.t
+	  !> ext/threads/shared/t/hv_refs.t
+	  !> ext/threads/shared/t/hv_simple.t
+	  !> ext/threads/shared/t/no_share.t ext/threads/shared/t/queue.t
+	  !> ext/threads/shared/t/semaphore.t
+	  !> ext/threads/shared/t/shared_attr.t
+	  !> ext/threads/shared/t/sv_refs.t
+	  !> ext/threads/shared/t/sv_simple.t patchlevel.h
+	  !> pod/perldelta.pod vms/vms.c xsutils.c
+____________________________________________________________________________
+[ 16575] By: ams                                   on 2002/05/13  15:42:50
+        Log: Subject: [PATCH] Update README.vos and pod/perlport.pod
+             From: Paul_GreenVOS@vos.stratus.com
+             Date: Mon, 13 May 02 12:32 edt
+             Message-Id: <200205131631.MAA02607@mailhub2.stratus.com>
+     Branch: perl
+	   ! README.vos pod/perldelta.pod
+____________________________________________________________________________
+[ 16574] By: ams                                   on 2002/05/13  15:41:14
+        Log: Subject: [PATCH: perl@16539++] fix a small comment nit in vms/vms.c
+             From: PPrymmer@factset.com
+             Date: Mon, 13 May 2002 11:38:15 -0400
+             Message-Id: <OF3D3F427C.8365917A-ON85256BB8.0055A1BF@55.25.11>
+     Branch: perl
+	   ! vms/vms.c
+____________________________________________________________________________
+[ 16573] By: jhi                                   on 2002/05/13  14:02:50
+        Log: Update Changes.
+     Branch: perl
+	   ! Changes patchlevel.h
+____________________________________________________________________________
 [ 16572] By: sky                                   on 2002/05/13  12:30:35
         Log: Subject: [PATCH] Re: 'use threads::shared' noisy with -w
              From: Dave Mitchell <davem@fdgroup.com>
diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm
index 664f6e7a6b..0224795392 100644
--- a/ext/Storable/Storable.pm
+++ b/ext/Storable/Storable.pm
@@ -894,6 +894,11 @@ C<Storable::drop_utf8> is a blunt tool.  There is no facility either to
 return B<all> strings as utf8 sequences, or to attempt to convert utf8
 data back to 8 bit and C<croak()> if the conversion fails.
 
+In EBCDIC platforms, restoring restricted hashes (a new perl 5.8
+feature) does not work (the contents of the hashes are restored 
+but the read-onlyness of either the whole hash or particular
+elements is lost).
+
 =head1 CREDITS
 
 Thank you to (in chronological order):
diff --git a/patchlevel.h b/patchlevel.h
index 1f79d69484..4bc257c151 100644
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -79,7 +79,7 @@
 #if !defined(PERL_PATCHLEVEL_H_IMPLICIT) && !defined(LOCAL_PATCH_COUNT)
 static	char	*local_patches[] = {
         NULL
-	,"DEVEL16572"
+	,"DEVEL16610"
 	,NULL
 };
 
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 5d832b9e2b..df5151dc10 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -2965,7 +2965,6 @@ tests have been added.
                                                               834 845
  op/sprintf.t                               224    3   1.34%  98 100 136
  op/tr.t                                     97    5   5.15%  63 71-74
- run/fresh_perl.t                            95    3   3.16%  92-94
  uni/fold.t                                 780    6   0.77%  61 169 196 661
                                                               710-711
 
diff --git a/sv.c b/sv.c
index 13b548bd5e..5992a69b2f 100644
--- a/sv.c
+++ b/sv.c
@@ -10474,9 +10474,10 @@ Perl_sv_recode_to_utf8(pTHX_ SV *sv, SV *encoding)
 	  PUTBACK;
 	  s = SvPV(uni, len);
 	  if (s != SvPVX(sv)) {
-	       SvGROW(sv, len);
+	       SvGROW(sv, len + 1);
 	       Move(s, SvPVX(sv), len, char);
 	       SvCUR_set(sv, len);
+	       SvPVX(sv)[len] = 0;	
 	  }
 	  FREETMPS;
 	  LEAVE;
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index d49cddc54d..acc595f50d 100644
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -52,6 +52,13 @@ foreach my $prog (@prgs) {
 
     my($prog,$expected) = split(/\nEXPECT\n/, $raw_prog);
 
+    if ($prog =~ /^\# SKIP: (.+)/m) {
+	if (eval $1) {
+	    ok(1, "Skip: $1");
+	    next;
+	}
+    }
+
     $expected =~ s/\n+$//;
 
     fresh_perl_is($prog, $expected, { switches => [$switch] }, $name);
@@ -789,6 +796,7 @@ $test = Foo->new(); # must be package var
 EXPECT
 ok
 ######## example from Camel 5, ch. 15, pp.406 (with my)
+# SKIP: ord "A" == 193 # EBCDIC
 use strict;
 use utf8;
 my $人 = 2; # 0xe4 0xba 0xba: U+4eba, "human" in CJK ideograph
@@ -797,6 +805,7 @@ print $人, "\n";
 EXPECT
 3
 ######## example from Camel 5, ch. 15, pp.406 (with our)
+# SKIP: ord "A" == 193 # EBCDIC
 use strict;
 use utf8;
 our $人 = 2; # 0xe4 0xba 0xba: U+4eba, "human" in CJK ideograph
@@ -805,6 +814,7 @@ print $人, "\n";
 EXPECT
 3
 ######## example from Camel 5, ch. 15, pp.406 (with package vars)
+# SKIP: ord "A" == 193 # EBCDIC
 use utf8;
 $人 = 2; # 0xe4 0xba 0xba: U+4eba, "human" in CJK ideograph
 $人++; # a child is born
@@ -817,4 +827,3 @@ tie FH, 'main';
 EXPECT
 Can't modify constant item in tie at - line 2, near "'main';"
 Execution of - aborted due to compilation errors.
-