Resync with mainline

p4raw-id: //depot/vmsperl@5049
p4raw-branched: from //depot/perl@4822 'branch in'
	ext/Sys/Syslog/Makefile.PL ext/Sys/Syslog/Syslog.pm
	lib/Pod/Find.pm lib/Pod/ParseUtils.pm t/op/exists_sub.t
	t/op/ver.t t/pragma/diagnostics.t win32/bin/exetype.pl
	vos/config.def vos/config.pl (@4896..) pod/perlintern.pod
	(@4915..) ext/Sys/Syslog/Syslog.xs (@4980..)
	pod/perlunicode.pod (@5013..) pod/perlapi.pod (@5015..)
	Todo-5.6 (@5027..)
p4raw-deleted: from //depot/perl@4822 'delete in' lib/Sys/Syslog.pm
	(@2406..) Todo-5.005 (@4008..) lib/caller.pm (@4860..)
p4raw-edited: from //depot/perl@4822 'edit in' vms/subconfigure.com
	(@4767..)
p4raw-integrated: from //depot/perl@4822 'copy in' hints/unicosmk.sh
	(@948..) lib/FileHandle.pm (@1044..) lib/ExtUtils/Packlist.pm
	(@1315..) ext/IPC/SysV/SysV.pm (@1372..) lib/Net/protoent.pm
	lib/Net/servent.pm lib/Text/Soundex.pm (@1575..) README.vos
	vos/Changes vos/build.cm vos/compile_perl.cm vos/perl.bind
	vos/test_vos_dummies.c vos/vos_dummies.c (@1838..)
	lib/utf8_heavy.pl (@2039..) ext/IO/lib/IO/Seekable.pm
	lib/ExtUtils/Command.pm lib/Net/hostent.pm lib/Net/netent.pm
	lib/Time/gmtime.pm lib/Time/localtime.pm lib/User/grent.pm
	lib/User/pwent.pm (@2620..) eg/cgi/index.html lib/CGI/Apache.pm
	lib/CGI/Switch.pm (@2830..) ext/IO/lib/IO/Dir.pm
	ext/IO/lib/IO/Pipe.pm ext/IO/lib/IO/Poll.pm
	ext/IO/lib/IO/Socket/UNIX.pm (@2882..) t/comp/use.t (@2891..)
	lib/File/Compare.pm (@3061..) form.h (@3124..) hints/netbsd.sh
	(@3158..) t/op/grep.t (@3180..) lib/AnyDBM_File.pm (@3317..)
	lib/Test.pm (@3376..) lib/CPAN/Nox.pm (@3458..)
	hints/openbsd.sh (@3516..) mg.h (@3524..) lib/CGI/Cookie.pm
	lib/CGI/Pretty.pm (@3559..) lib/Text/ParseWords.pm (@3563..)
	ext/IO/lib/IO/File.pm lib/File/Basename.pm (@3650..)
	x2p/find2perl.PL (@3677..) cflags.SH (@3774..) utils/dprofpp.PL
	(@3778..) ext/IO/lib/IO/Handle.pm (@3825..) lib/CGI.pm
	lib/dumpvar.pl (@3848..) README.cygwin
	lib/ExtUtils/MM_Cygwin.pm (@3852..) README.threads (@3860..)
	lib/SelfLoader.pm t/io/tell.t t/lib/cgi-html.t t/op/attrs.t
	(@4076..) ext/SDBM_File/sdbm/sdbm.c (@4082..)
	lib/Test/Harness.pm (@4092..) pod/perlcompile.pod (@4120..)
	ext/Opcode/Safe.pm (@4131..) ext/DB_File/Changes
	ext/DB_File/Makefile.PL ext/DB_File/version.c (@4142..)
	ext/DB_File/DB_File.xs (@4144..) lib/File/Spec/VMS.pm (@4182..)
	hints/dynixptx.sh (@4271..) t/lib/fields.t (@4303..) thrdvar.h
	(@4316..) pod/perlguts.pod (@4339..) Porting/makerel (@4391..)
	lib/Text/Tabs.pm (@4398..) perlio.c (@4402..)
	lib/CPAN/FirstTime.pm (@4416..) README (@4433..)
	lib/attributes.pm (@4438..) ext/Devel/Peek/Peek.xs (@4475..)
	Policy_sh.SH (@4496..) universal.c xsutils.c (@4511..)
	ext/B/B/Stash.pm ext/B/NOTES ext/B/O.pm keywords.h keywords.pl
	(@4515..) util.h (@4545..) ext/B/B/Asmdata.pm
	ext/B/B/Deparse.pm (@4546..) ext/Data/Dumper/Dumper.xs
	pod/perlmod.pod (@4556..) ext/IO/IO.xs lib/unicode/Is/ASCII.pl
	lib/unicode/Is/Alnum.pl lib/unicode/Is/Alpha.pl
	lib/unicode/Is/BidiAN.pl lib/unicode/Is/BidiB.pl
	lib/unicode/Is/BidiCS.pl lib/unicode/Is/BidiEN.pl
	lib/unicode/Is/BidiES.pl lib/unicode/Is/BidiET.pl
	lib/unicode/Is/BidiL.pl lib/unicode/Is/BidiON.pl
	lib/unicode/Is/BidiR.pl lib/unicode/Is/BidiS.pl
	lib/unicode/Is/BidiWS.pl lib/unicode/Is/C.pl
	lib/unicode/Is/Cc.pl lib/unicode/Is/Cn.pl
	lib/unicode/Is/Cntrl.pl lib/unicode/Is/Co.pl
	lib/unicode/Is/DCcircle.pl lib/unicode/Is/DCcompat.pl
	lib/unicode/Is/DCfinal.pl lib/unicode/Is/DCfont.pl
	lib/unicode/Is/DCinital.pl lib/unicode/Is/DCinitial.pl
	lib/unicode/Is/DCisolated.pl lib/unicode/Is/DCnarrow.pl
	lib/unicode/Is/DCnoBreak.pl lib/unicode/Is/DCsmall.pl
	lib/unicode/Is/DCsquare.pl lib/unicode/Is/DCsub.pl
	lib/unicode/Is/DCsuper.pl lib/unicode/Is/DCvertical.pl
	lib/unicode/Is/DCwide.pl lib/unicode/Is/DecoCanon.pl
	lib/unicode/Is/DecoCompat.pl lib/unicode/Is/Digit.pl
	lib/unicode/Is/Graph.pl lib/unicode/Is/L.pl
	lib/unicode/Is/Ll.pl lib/unicode/Is/Lm.pl lib/unicode/Is/Lo.pl
	lib/unicode/Is/Lower.pl lib/unicode/Is/Lt.pl
	lib/unicode/Is/Lu.pl lib/unicode/Is/M.pl lib/unicode/Is/Mc.pl
	lib/unicode/Is/Mirrored.pl lib/unicode/Is/Mn.pl
	lib/unicode/Is/N.pl lib/unicode/Is/Nd.pl lib/unicode/Is/No.pl
	lib/unicode/Is/P.pl lib/unicode/Is/Pd.pl lib/unicode/Is/Pe.pl
	lib/unicode/Is/Po.pl lib/unicode/Is/Print.pl
	lib/unicode/Is/Ps.pl lib/unicode/Is/Punct.pl
	lib/unicode/Is/S.pl lib/unicode/Is/Sc.pl lib/unicode/Is/Sm.pl
	lib/unicode/Is/So.pl lib/unicode/Is/Space.pl (@4573..) perly.c
	vms/perly_c.vms (@4578..) deb.c (@4588..) lib/Pod/Checker.pm
	lib/Pod/Parser.pm lib/Pod/Usage.pm t/pod/poderrs.t
	t/pod/poderrs.xr (@4590..) pod/Makefile pod/roffitall unixish.h
	vos/vosish.h (@4602..) run.c (@4603..) utils/perlbug.PL
	utils/perldoc.PL (@4604..) hints/hpux.sh (@4606..)
	lib/strict.pm pod/perlsyn.pod (@4616..) ext/DB_File/DB_File.pm
	ext/Fcntl/Fcntl.pm ext/GDBM_File/GDBM_File.pm
	ext/Opcode/Opcode.pm ext/SDBM_File/SDBM_File.pm
	ext/Socket/Socket.pm lib/AutoLoader.pm lib/Getopt/Std.pm
	(@4623..) lib/ExtUtils/Manifest.pm (@4632..) pod/perlfaq2.pod
	(@4636..) t/op/misc.t t/pragma/warn/2use (@4641..)
	lib/Math/BigFloat.pm (@4685..) pod/perlfilter.pod
	pod/perlopentut.pod (@4699..) t/pragma/warn/pp_hot
	t/pragma/warn/pp_sys (@4709..) cygwin/Makefile.SHs
	os2/Makefile.SHs (@4710..) lib/Net/Ping.pm (@4711..)
	ext/POSIX/POSIX.xs ext/SDBM_File/sdbm/pair.c (@4717..)
	lib/ExtUtils/Liblist.pm (@4720..) t/lib/charnames.t
	t/lib/dumper.t (@4723..) lib/byte_heavy.pl (@4726..)
	t/pragma/warn/doop t/pragma/warn/pp t/pragma/warn/sv
	t/pragma/warn/utf8 (@4727..) lib/ExtUtils/xsubpp (@4731..)
	pod/perlre.pod (@4732..) INTERN.h (@4734..) globals.c (@4744..)
	lib/File/Copy.pm (@4753..) lib/ExtUtils/MM_VMS.pm
	lib/ExtUtils/MM_Win32.pm (@4754..) lib/ExtUtils/Install.pm
	(@4758..) ext/B/B/C.pm (@4763..) README.os2 (@4766..)
	lib/ExtUtils/MakeMaker.pm (@4769..) installperl (@4774..)
	lib/CPAN.pm lib/ExtUtils/Installed.pm lib/ExtUtils/MM_Unix.pm
	lib/ExtUtils/Mksymlists.pm lib/diagnostics.pm (@4777..)
	t/lib/thread.t (@4780..) pod/perl.pod (@4781..)
	ext/IO/lib/IO/Socket.pm (@4782..) win32/perlhost.h (@4792..)
	lib/Tie/Array.pm (@4796..) t/pragma/strict-vars (@4801..)
	win32/config.bc win32/config.gc win32/config.vc (@4817..)
	INSTALL (@4824..) utils/h2xs.PL (@4825..) embed.h (@4830..)
	ext/Data/Dumper/Dumper.pm (@4832..) lib/Tie/Handle.pm (@4833..)
	proto.h t/op/closure.t (@4834..) lib/base.pm lib/fields.pm
	(@4835..) dump.c (@4836..) t/io/fs.t (@4838..)
	lib/Carp/Heavy.pm (@4839..) t/cmd/while.t (@4848..)
	Porting/Glossary Porting/config.sh Porting/config_H (@4850..)
	lib/Sys/Hostname.pm (@4851..) ext/Devel/DProf/DProf.pm
	(@4852..) hints/cygwin.sh (@4853..) patchlevel.h (@4858..)
	ext/File/Glob/Glob.pm ext/IO/lib/IO/Socket/INET.pm
	ext/NDBM_File/NDBM_File.pm ext/ODBM_File/ODBM_File.pm
	ext/POSIX/POSIX.pm lib/Dumpvalue.pm lib/Fatal.pm
	lib/File/Path.pm lib/File/stat.pm lib/Math/Complex.pm
	lib/Math/Trig.pm lib/Shell.pm lib/constant.pm lib/lib.pm
	(@4860..) lib/AutoSplit.pm (@4873..) lib/Pod/Html.pm (@4883..)
	win32/perllib.c (@4884..) vos/config.h vos/config_h.SH_orig
	(@4896..) perly.y pod/perlrun.pod pod/perlsub.pod
	pod/perltodo.pod (@4905..) README.win32 lib/Class/Struct.pm
	(@4906..) Porting/p4desc (@4908..) ext/Devel/Peek/Peek.pm
	ext/Thread/Thread.pm lib/File/Find.pm lib/UNIVERSAL.pm
	pod/buildtoc pod/perlfork.pod (@4910..) t/op/fork.t (@4914..)
	XSUB.h av.h cop.h cv.h gv.h handy.h hv.h makedef.pl
	pod/perltoc.pod pp.h scope.h (@4915..) global.sym objXSUB.h
	(@4916..) lib/Cwd.pm (@4921..) doop.c t/pragma/warn/toke
	(@4930..) win32/win32.c (@4933..) embedvar.h intrpvar.h
	lib/charnames.pm op.h sv.h (@4937..) embed.pl (@4939..)
	lib/utf8.pm regcomp.c regexec.c (@4941..)
	vms/descrip_mms.template (@4944..) lib/warnings.pm warnings.pl
	(@4947..) lib/File/Spec/Win32.pm (@4949..) lib/perl5db.pl
	(@4955..) lib/Benchmark.pm (@4958..) lib/English.pm (@4960..)
	lib/byte.pm (@4969..) scope.c (@4970..)
	ext/Devel/DProf/DProf.xs (@4973..) malloc.c (@4974..) op.c
	pod/perldebug.pod pp_ctl.c (@4975..) Makefile.SH (@4977..)
	config_h.SH (@4978..) pod/perlop.pod (@4979..) pod/perlfunc.pod
	(@4998..) pod/perldiag.pod (@5001..) pp_sys.c (@5006..)
	EXTERN.h doio.c perl.h util.c (@5008..) av.c hv.c pp.c pp_hot.c
	utf8.c utf8.h (@5009..) pod/perldelta.pod pod/perlport.pod
	(@5015..) MANIFEST (@5016..) sv.c (@5017..) win32/config_H.bc
	win32/config_H.gc win32/config_H.vc (@5019..) win32/Makefile
	win32/makefile.mk (@5022..) win32/win32.h (@5024..) mg.c toke.c
	(@5025..) gv.c perl.c pod/perlvar.pod (@5029..)
	pod/perlhist.pod (@5034..) Configure (@5036..) Changes
	(@5038..) 'merge in' configure.com (@4773..)

1 files changed, 8 insertions, 1 deletions

diff --git a/scope.c b/scope.c
index 7052282edb..0f568543ba 100644
--- a/scope.c
+++ b/scope.c
@@ -1,6 +1,6 @@
 /*    scope.c
  *
- *    Copyright (c) 1991-1999, Larry Wall
+ *    Copyright (c) 1991-2000, Larry Wall
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -934,6 +934,13 @@ Perl_leave_scope(pTHX_ I32 base)
 	    }
 	    *(I32*)&PL_hints = (I32)SSPOPINT;
 	    break;
+	case SAVEt_COMPPAD:
+	    PL_comppad = (AV*)SSPOPPTR;
+	    if (PL_comppad)
+		PL_curpad = AvARRAY(PL_comppad);
+	    else
+		PL_curpad = Null(SV**);
+	    break;
 	default:
 	    Perl_croak(aTHX_ "panic: leave_scope inconsistency");
 	}