Quick integration of mainline changes to date

p4raw-id: //depot/vmsperl@4821
p4raw-branched: from //depot/perl@4249 'branch in'
	eg/cgi/dna_small_gif.uu eg/cgi/wilogo_gif.uu epoc/config.sh
	epoc/epocish.c epoc/link.pl ext/DB_File/hints/sco.pl
	ext/DynaLoader/XSLoader_pm.PL ext/DynaLoader/hints/aix.pl
	ext/DynaLoader/hints/openbsd.pl ext/File/Glob/Makefile.PL
	ext/File/Glob/TODO ext/IPC/SysV/hints/cygwin.pl
	ext/NDBM_File/hints/cygwin.pl ext/NDBM_File/hints/sco.pl
	ext/ODBM_File/hints/cygwin.pl lib/byte.pm lib/byte_heavy.pl
	lib/unicode/Jamo.txt lib/unicode/NamesList.html
	lib/unicode/UCD300.html lib/unicode/Unicode.300
	lib/unicode/Unicode3.html os2/OS2/REXX/DLL/Changes
	os2/OS2/REXX/DLL/DLL.pm os2/OS2/REXX/DLL/DLL.xs
	os2/OS2/REXX/DLL/MANIFEST os2/OS2/REXX/DLL/Makefile.PL
	os2/OS2/REXX/t/rx_emxrv.t t/lib/glob-case.t t/lib/glob-taint.t
	t/pod/multiline_items.xr t/pod/pod2usage.xr t/pod/podselect.xr
	win32/vmem.h t/pod/multiline_items.t t/pod/pod2usage.t
	t/pod/podselect.t (@4280..) pod/perlhack.pod (@4340..)
	ext/File/Glob/Changes ext/File/Glob/Glob.xs t/lib/glob-global.t
	(@4356..) t/lib/glob-basic.t (@4393..) lib/Pod/Man.pm (@4404..)
	pod/perlfilter.pod (@4406..) t/io/nargv.t (@4503..)
	ext/File/Glob/bsd_glob.c ext/File/Glob/bsd_glob.h (@4514..)
	epoc/createpkg.pl epoc/epoc_stubs.c (@4556..)
	lib/unicode/Eq/Latin1.pl lib/unicode/Eq/Unicode.pl
	lib/unicode/In/BopomofoExtended.pl
	lib/unicode/In/BraillePatterns.pl
	lib/unicode/In/CJKRadicalsSupplement.pl
	lib/unicode/In/CJKUnifiedIdeographsExtensionA.pl
	lib/unicode/In/Cherokee.pl
	lib/unicode/In/IdeographicDescriptionCharacters.pl
	lib/unicode/In/KangxiRadicals.pl lib/unicode/In/Khmer.pl
	lib/unicode/In/Mongolian.pl lib/unicode/In/Myanmar.pl
	lib/unicode/In/Ogham.pl lib/unicode/In/Runic.pl
	lib/unicode/In/Sinhala.pl lib/unicode/In/Syriac.pl
	lib/unicode/In/Thaana.pl
	lib/unicode/In/UnifiedCanadianAboriginalSyllabics.pl
	lib/unicode/In/YiRadicals.pl lib/unicode/In/YiSyllables.pl
	(@4573..) pod/perlfork.pod (@4602..) ext/File/Glob/Glob.pm
	(@4615..) win32/genmk95.pl (@4653..) win32/vdir.h (@4702..)
	win32/perlhost.h (@4789..)
p4raw-deleted: from //depot/perl@4249 'delete in'
	eg/cgi/dna.small.gif.uu eg/cgi/wilogo.gif.uu (@2830..)
	os2/POSIX.mkfifo (@3518..) lib/warning.pm warning.h (@4008..)
	lib/unicode/Jamo-2.txt lib/unicode/UnicodeData-Latest.txt
	(@4184..) lib/unicode/Unicode.html (@4209..)
	lib/unicode/Eq/Latin1 lib/unicode/Eq/Unicode (@4228..)
	lib/Pod/PlainText.pm (@4280..) ext/DynaLoader/dl_cygwin.xs
	(@4302..) epoc/config.h (@4475..) epoc/perl.mmp epoc/perl.pkg
	(@4556..)
p4raw-integrated: from //depot/perl@4249 'copy in' ext/B/NOTES
	ext/B/ramblings/runtime.porting (@562..) hints/amigaos.sh
	(@575..) lib/Net/Ping.pm (@854..) lib/strict.pm (@988..)
	ext/Thread/Thread/Queue.pm (@1085..)
	ext/Thread/Thread/Semaphore.pm (@1086..)
	lib/ExtUtils/Installed.pm (@1315..) plan9/plan9ish.h (@1451..)
	mpeix/mpeixish.h (@1478..) Porting/p4d2p (@1485..)
	ext/ODBM_File/hints/sco.pl ext/Thread/sync.t ext/Thread/sync2.t
	hints/lynxos.sh lib/Text/Tabs.pm os2/OS2/REXX/Changes
	os2/OS2/REXX/t/rx_dllld.t os2/OS2/REXX/t/rx_objcall.t
	os2/OS2/REXX/t/rx_tievar.t os2/OS2/REXX/t/rx_tieydb.t
	os2/OS2/REXX/t/rx_vrexx.t os2/dl_os2.c t/comp/term.t
	t/io/print.t t/op/glob.t util.h win32/bin/perlglob.pl (@1575..)
	ext/B/O.pm (@1617..) ext/Thread/typemap lib/File/DosGlob.pm
	(@1760..) t/op/substr.t (@1780..) vos/vosish.h (@1838..)
	lib/ExtUtils/Mkbootstrap.pm (@1932..) Porting/genlog (@1978..)
	lib/constant.pm (@2029..) t/op/array.t (@2210..)
	lib/Math/Complex.pm (@2219..) hints/dynixptx.sh (@2318..)
	ext/IO/IO.pm (@2354..) hints/mint.sh lib/Tie/Array.pm
	lib/Tie/Hash.pm (@2620..) os2/Changes (@2695..) globvar.sym
	(@2746..) t/comp/bproto.t (@2817..) lib/DB.pm (@2820..)
	hints/mpeix.sh lib/FindBin.pm (@2830..) ext/IO/lib/IO/Select.pm
	(@2882..) t/lib/english.t (@2891..) t/op/subst.t (@2892..)
	t/op/range.t (@2923..) pod/perl5005delta.pod (@2929..)
	hints/next_3.sh hints/next_3_0.sh (@3023..) lib/Getopt/Std.pm
	(@3034..) lib/File/Spec.pm (@3042..) t/pragma/warn/1global
	(@3096..) t/pod/emptycmd.t t/pod/for.t t/pod/for.xr
	t/pod/headings.t t/pod/headings.xr t/pod/include.t
	t/pod/include.xr t/pod/included.t t/pod/included.xr
	t/pod/lref.t t/pod/lref.xr t/pod/nested_items.t
	t/pod/nested_items.xr t/pod/nested_seqs.t t/pod/nested_seqs.xr
	t/pod/oneline_cmds.t t/pod/oneline_cmds.xr t/pod/testcmp.pl
	(@3129..) README.hurd (@3148..) ext/re/re.pm (@3152..)
	lib/ExtUtils/Liblist.pm t/comp/require.t (@3153..)
	Porting/p4desc (@3183..) Porting/pumpkin.pod hints/linux.sh
	myconfig.SH (@3267..) t/op/readdir.t (@3299..)
	t/pod/special_seqs.t t/pod/special_seqs.xr (@3304..)
	t/lib/fields.t (@3335..) t/op/taint.t (@3357..)
	lib/File/Copy.pm (@3362..) installhtml (@3371..)
	ext/Socket/Socket.pm (@3391..) t/lib/ipc_sysv.t t/op/nothread.t
	(@3399..) lib/CPAN/FirstTime.pm (@3458..) pod/perlfaq8.pod
	(@3459..) pod/perlcall.pod pod/perlipc.pod pod/perltie.pod
	pod/perlxs.pod (@3460..) t/pragma/strict-subs (@3514..)
	ext/ByteLoader/ByteLoader.pm lib/Math/BigFloat.pm (@3516..)
	x2p/walk.c (@3518..) win32/win32thread.c win32/win32thread.h
	(@3525..) os2/OS2/REXX/REXX.xs (@3531..) utf8.h (@3537..)
	lib/ExtUtils/Embed.pm (@3553..) ext/Thread/Thread/Specific.pm
	(@3564..) ext/POSIX/Makefile.PL lib/Cwd.pm (@3582..) hv.h
	(@3602..) ext/NDBM_File/NDBM_File.pm ext/ODBM_File/ODBM_File.pm
	ext/SDBM_File/SDBM_File.pm (@3603..) lib/Sys/Hostname.pm
	(@3631..) os2/os2.c (@3640..) emacs/ptags miniperlmain.c
	(@3660..) ext/IO/IO.xs win32/config_h.PL win32/dl_win32.xs
	win32/runperl.c win32/win32sck.c (@3667..) pod/Win32.pod
	pod/perlfaq4.pod pod/perltodo.pod (@3676..) lib/vars.pm
	(@3686..) lib/ExtUtils/Manifest.pm (@3693..) hints/README.hints
	hints/epix.sh hints/esix4.sh hints/next_4.sh (@3753..)
	ext/GDBM_File/GDBM_File.pm lib/CPAN.pm pod/perllocale.pod
	(@3754..) lib/bigfloat.pl (@3759..) lib/Pod/Text/Color.pm
	lib/Pod/Text/Termcap.pm pod/pod2text.PL (@3788..)
	ext/POSIX/POSIX.pm lib/AutoLoader.pm (@3794..) Porting/makerel
	(@3797..) t/lib/io_unix.t (@3825..) EXTERN.h Porting/patchls
	ext/SDBM_File/sdbm/pair.c makedepend.SH (@3852..)
	lib/File/Spec/Unix.pm unixish.h (@3855..)
	lib/ExtUtils/Mksymlists.pm (@3856..) t/pragma/utf8.t (@3892..)
	README (@3901..) t/op/eval.t (@3988..) MAINTAIN
	ext/B/B/Stash.pm ext/ByteLoader/ByteLoader.xs
	ext/Fcntl/Fcntl.xs ext/SDBM_File/Makefile.PL lib/Math/Trig.pm
	os2/OS2/REXX/Makefile.PL perlsdio.h regnodes.h utils/perlbug.PL
	(@4008..) epoc/epoc.c pod/perltoc.pod pod/perlvar.pod regexp.h
	t/lib/attrs.t t/op/time.t t/pragma/warn/2use
	t/pragma/warn/3both t/pragma/warn/7fatal universal.c warnings.h
	warnings.pl (@4076..) ext/Opcode/Opcode.pm ext/attrs/attrs.xs
	t/pragma/warn/pp_ctl (@4081..) t/pragma/warn/pp_sys (@4088..)
	t/pragma/sub_lval.t (@4090..) t/TEST (@4092..) xsutils.c
	(@4101..) pod/buildtoc (@4120..) djgpp/config.over
	djgpp/djgppsed.sh pod/pod2usage.PL pod/podselect.PL (@4121..)
	lib/Pod/Html.pm (@4122..) av.h (@4123..) t/pragma/locale.t
	(@4130..) pod/perldata.pod (@4131..) pod/perllexwarn.pod
	(@4132..) ext/B/typemap ext/DB_File/DB_File.pm
	lib/ExtUtils/typemap (@4142..) ext/B/Makefile.PL
	t/lib/bigfltpm.t (@4149..) lib/ExtUtils/MM_VMS.pm
	vms/descrip_mms.template (@4182..) ext/DynaLoader/dl_vmesa.xs
	ext/DynaLoader/dl_vms.xs lib/unicode/ReadMe.txt pod/perlsyn.pod
	t/op/groups.t (@4184..) t/pragma/warn/op (@4189..) thrdvar.h
	(@4197..) ext/B/B/Terse.pm (@4199..) t/lib/posix.t (@4223..)
	keywords.h keywords.pl pod/perlfaq3.pod pod/perlsub.pod
	t/pragma/strict-vars (@4227..) pod/perlfaq9.pod (@4228..)
	djgpp/configure.bat lib/Exporter/Heavy.pm (@4242..)
	Porting/findvars lib/ExtUtils/xsubpp pod/perlguts.pod
	t/lib/filecopy.t (@4271..) ext/attrs/attrs.pm (@4278..)
	t/op/avhv.t (@4279..) lib/Pod/Checker.pm
	lib/Pod/InputObjects.pm t/pod/testp2pt.pl (@4280..)
	lib/Pod/Usage.pm pod/podchecker.PL t/pod/poderrs.t
	t/pod/poderrs.xr t/pod/testpchk.pl (@4281..) lib/Pod/Text.pm
	pod/pod2man.PL (@4282..) ext/Devel/Peek/Peek.xs
	ext/DynaLoader/dl_beos.xs ext/DynaLoader/dl_dld.xs
	ext/DynaLoader/dl_mpeix.xs ext/DynaLoader/dlutils.c perlio.c
	(@4302..) ext/B/defsubs_h.PL t/pragma/constant.t (@4303..)
	ext/Thread/Thread.xs (@4316..) ext/Thread/Thread.pm (@4328..)
	lib/Exporter.pm (@4331..) ext/DynaLoader/dl_aix.xs (@4336..)
	pod/Makefile pod/roffitall (@4340..) lib/lib.pm (@4343..)
	pod/perlref.pod (@4345..) perly.y perly_c.diff (@4350..)
	t/lib/safe2.t (@4353..) hints/svr5.sh (@4377..)
	pod/perlfaq2.pod (@4383..) lib/Benchmark.pm (@4384..)
	win32/include/dirent.h (@4385..) pod/perlopentut.pod (@4390..)
	hints/os2.sh os2/Makefile.SHs (@4393..) lib/Pod/Parser.pm
	lib/Pod/Select.pm (@4400..) malloc.c (@4402..)
	pod/perlmodlib.pod (@4404..) perlvars.h (@4409..) t/op/sort.t
	(@4418..) t/op/int.t (@4430..) os2/OS2/REXX/REXX.pm t/io/fs.t
	t/op/magic.t (@4432..) lib/File/Path.pm (@4433..)
	t/op/lex_assign.t (@4436..) lib/attributes.pm (@4437..)
	pod/perlop.pod (@4438..) ext/POSIX/POSIX.xs (@4448..)
	Policy_sh.SH ext/Data/Dumper/Dumper.xs hints/dec_osf.sh
	t/lib/charnames.t (@4475..) lib/Time/Local.pm (@4481..) cv.h
	ext/B/B/Xref.pm (@4485..) doop.c handy.h hints/irix_6.sh pp.h
	taint.c (@4496..) deb.c (@4505..) dosish.h os2/os2ish.h perly.c
	vms/perly_c.vms (@4511..) ext/B/B/Lint.pm pod/perlmod.pod
	pod/perlrun.pod (@4515..) bytecode.pl ext/B/B.pm
	ext/B/B/Asmdata.pm ext/B/B/CC.pm ext/B/B/Debug.pm
	ext/B/B/Deparse.pm ext/ByteLoader/bytecode.h
	ext/ByteLoader/byterun.c ext/ByteLoader/byterun.h
	ext/Devel/Peek/Peek.pm gv.h (@4545..) README.epoc
	epoc/epocish.h ext/B/B.xs ext/Fcntl/Fcntl.pm hints/hpux.sh
	t/lib/syslfs.t t/op/lfs.t t/op/pat.t (@4556..)
	ext/DynaLoader/DynaLoader_pm.PL hints/solaris_2.sh
	lib/unicode/Is/SylA.pl lib/unicode/Is/SylC.pl
	lib/unicode/Is/SylE.pl lib/unicode/Is/SylI.pl
	lib/unicode/Is/SylO.pl lib/unicode/Is/SylU.pl
	lib/unicode/Is/SylV.pl lib/unicode/Is/SylWA.pl
	lib/unicode/Is/SylWC.pl lib/unicode/Is/SylWE.pl
	lib/unicode/Is/SylWI.pl lib/unicode/Is/SylWV.pl
	lib/unicode/mktables.PL t/op/pack.t t/op/regexp.t utils/h2xs.PL
	utils/perldoc.PL vms/vms.c vms/vmsish.h win32/win32iop.h
	(@4573..) t/lib/dumper.t t/pragma/overload.t (@4574..)
	ext/Errno/Errno_pm.PL ext/IO/lib/IO/Socket.pm (@4575..)
	t/op/misc.t (@4578..) ext/Opcode/Opcode.xs (@4579..) cop.h
	(@4588..) lib/perl5db.pl (@4601..) XSUB.h globals.c
	pod/perl.pod run.c scope.c (@4602..) op.h win32/perllib.c
	(@4603..) AUTHORS pod/perlport.pod t/op/runlevel.t (@4604..)
	scope.h (@4605..) README.vms hints/aix.sh vms/subconfigure.com
	(@4606..) pod/perlxstut.pod (@4620..) regcomp.h (@4622..)
	ext/Devel/DProf/DProf.pm ext/DynaLoader/Makefile.PL (@4623..)
	pod/perltrap.pod (@4630..) ext/B/B/Bytecode.pm (@4631..)
	opcode.h opcode.pl t/pragma/warn/4lint t/pragma/warn/doio
	t/pragma/warn/pp_hot (@4641..) mg.c (@4658..) iperlsys.h
	(@4660..) ext/B/B/C.pm (@4662..) pod/perlre.pod (@4666..)
	embedvar.h (@4668..) t/lib/filefind.t (@4671..) intrpvar.h
	(@4672..) ext/DynaLoader/dl_hpux.xs ext/DynaLoader/dl_next.xs
	ext/DynaLoader/dl_rhapsody.xs (@4686..) lib/File/Find.pm
	(@4687..) cygwin/Makefile.SHs (@4688..) t/op/re_tests (@4693..)
	hv.c (@4694..) t/op/delete.t (@4695..) utf8.c (@4698..)
	thread.h (@4704..) pod/perldiag.pod pp_sys.c (@4709..)
	Makefile.SH (@4712..) hints/cygwin.sh t/op/stat.t (@4717..)
	README.os2 lib/ExtUtils/Install.pm (@4720..) t/pragma/warn/doop
	t/pragma/warn/pp t/pragma/warn/regcomp t/pragma/warn/sv
	t/pragma/warn/toke t/pragma/warn/utf8 (@4721..)
	lib/diagnostics.pm (@4722..) regcomp.c (@4724..) configpm
	pp_ctl.c sv.h (@4726..) global.sym (@4727..) INTERN.h
	README.win32 lib/ExtUtils/MM_Win32.pm makedef.pl (@4729..)
	t/io/argv.t (@4732..) doio.c pp_hot.c (@4736..) toke.c
	(@4740..) gv.c (@4742..) win32/win32.h (@4743..)
	ext/Devel/DProf/DProf.xs objXSUB.h (@4744..)
	ext/Data/Dumper/Dumper.pm (@4745..) embed.h embed.pl
	ext/DynaLoader/dl_dlopen.xs proto.h (@4746..) pp.c (@4747..)
	sv.c (@4749..) lib/ExtUtils/MM_Unix.pm
	lib/ExtUtils/MakeMaker.pm (@4754..) util.c utils/perlcc.PL
	(@4755..) t/io/open.t (@4757..) regexec.c (@4759..) MANIFEST
	installman (@4769..) Porting/Glossary (@4771..) t/lib/thread.t
	(@4772..) Changes INSTALL Porting/config.sh Porting/config_H
	config_h.SH installperl patchlevel.h win32/config.bc
	win32/config.gc win32/config.vc win32/config_sh.PL
	win32/win32.c (@4773..) win32/Makefile win32/config_H.bc
	win32/config_H.gc win32/config_H.vc win32/makefile.mk (@4774..)
	perl.c (@4779..) t/op/fork.t (@4791..) av.c pod/perldelta.pod
	(@4796..) pod/perlfunc.pod (@4799..) dump.c (@4800..) op.c
	(@4801..) perl.h (@4805..) Configure (@4814..) 'merge in'
	configure.com (@4767..)

1 files changed, 91 insertions, 78 deletions

diff --git a/configure.com b/configure.com
index a9ed05be38..a77bec87cb 100644
--- a/configure.com
+++ b/configure.com
@@ -14,7 +14,7 @@ $! $ @Configure "-des"
 $!
 $! That's it. If you get into a bind trying to build perl on VMS then 
 $! definitely read through the README.VMS file.
-$! Beyond that send email to VMSPerl@cor.newman.upenn.edu 
+$! Beyond that send email to vmsperl@perl.org
 $!
 $! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 $!
@@ -24,8 +24,8 @@ $! Thank you!!!!
 $!
 $! Adapted and converted from Larry Wall & Andy Dougherty's
 $! "Configure generated by metaconfig 3.0 PL60." by Peter Prymmer
-$! (a Bourne sh[ell] script for configuring the installation of perl on VMS)
-$! in the perl5.002|3 epoch (spring/summer 1996)
+$! (a Bourne sh[ell] script for configuring the installation of perl 
+$! on non-VMS systems) in the perl5.002|3 epoch (spring/summer 1996)
 $! with much valuable help from Charles Bailey & 
 $! the whole VMSPerl crew.
 $! Extended and messed about with by Dan Sugalski
@@ -41,7 +41,7 @@ $ ans = ""
 $ macros = ""
 $ use_vmsdebug_perl = "N"
 $ use_debugging_perl = "Y"
-$ use_64bit = "N"
+$ use_64bit = "n"
 $ C_Compiler_Replace = "CC="
 $ Thread_Live_Dangerously = "MT="
 $ use_two_pot_malloc = "N"
@@ -481,6 +481,19 @@ $       IF (((f$length(file_2_find)+1) .eq. f$length(basename)) .and. -
 $       file_2_find = dirname + basename
 $!
 $       found = F$SEARCH(file_2_find)
+$       IF (found .EQS. "" .AND. dots .GT. 2)
+$       THEN
+$! 17-DEC-1999 Improved to turn "[.foo.bar]baz.c_buz" into
+$! "[.foo.bar]baz_c.buz" to cover unzipped archives and put
+$! "[.foo.bar]baz.c_buz,baz_c.buz" into missing list if neither is found.
+$         basename[f$locate(".",basename),1] := _
+$         dot_ele = F$ELEMENT(dots - 1,"_",basename)
+$         basename = -
+            f$extract(0,f$length(basename)-(f$length(dot_ele)+1),basename) -
+              + "." + dot_ele
+$         found = F$SEARCH(dirname + basename)
+$         file_2_find = file_2_find + "," + basename
+$       ENDIF
 $       IF (found .EQS. "")
 $       THEN
 $         WRITE MISSING file_2_find
@@ -702,7 +715,7 @@ $   TYPE SYS$INPUT:
 %Config-E-VMS, ERROR:
 
            Err, you do not appear to be running VMS!
- This package is intended to Configure the building of Perl for VMS.
+ This procedure is intended to Configure the building of Perl for VMS.
 
 $   READ SYS$COMMAND/PROMPT="Continue anyway? [n] " ans
 $   IF ans
@@ -826,7 +839,7 @@ $!
 $TZSet:
 $ echo ""
 $ echo "Please tell me in hh:mm form what time offset from GMT/UTC in England"
-$ echo "you are. As an example Eastern (US) Standard Time is -5:00 offset, but"
+$ echo "you are.  As an example Eastern (US) Standard Time is -5:00 offset, but"
 $ echo "Eastern Daylight Time (summer) is -4:00 offset."
 $ dflt = "0:00"
 $ rp = "Enter the Time Zone offset: [''dflt'] "
@@ -870,8 +883,10 @@ $!
 $ IF (F$GETSYI("HW_MODEL") .LT. 1024)
 $ THEN 
 $   archname = "VMS_VAX"
+$   otherarch = "an Alpha"
 $ ELSE
 $   archname = "VMS_AXP"
+$   otherarch = "a VAX"
 $ ENDIF
 $ rp = "What is your architecture name? [''archname'] "
 $ GOSUB myread
@@ -883,24 +898,22 @@ $   THEN
 $     echo4 "I'll go with ''archname' anyway..."
 $   ENDIF
 $ ENDIF
-$ IF (archname.EQS."VMS_AXP")
+$ dflt = "n"
+$ rp = "Will you be sharing your PERL_ROOT with ''otherarch'? [''dflt'] "
+$ GOSUB myread
+$ if ans.NES.""
 $ THEN
-$   dflt = "n"
-$   rp = "Are you sharing your PERL_ROOT with a VAX? [''dflt'] "
-$   GOSUB myread
-$   if ans.NES.""
-$   THEN
-$     ans = F$EDIT(ans,"COLLAPSE, UPCASE")
-$   ENDIF
-$   IF (ans.NES."Y")
+$   ans = F$EXTRACT(0,1,F$EDIT(ans,"COLLAPSE, UPCASE"))
+$ ENDIF
+$ IF (ans.NES."Y")
+$ THEN
+$   sharedperl = "N"
+$ ELSE
+$   sharedperl = "Y"
+$   IF (archname.EQS."VMS_AXP")
 $   THEN
-$     sharedperl = "N"
-$   ELSE
-$     sharedperl = "Y"
 $     macros = macros + """AXE=1"","
 $   ENDIF
-$ ELSE
-$   sharedperl = "N"
 $ ENDIF
 $!
 $!: is AFS running?                       !sfn
@@ -971,7 +984,7 @@ $!
 $ ENDIF !%Config-I-VMS, skip "where install" questions
 $!
 $!: set the base revision
-$ baserev="5.0"
+$ baserev="5"
 $!: get the patchlevel
 $ echo ""
 $ echo4 "Getting the current patchlevel..." !>&4
@@ -1019,7 +1032,7 @@ $   ENDIF
 $ ELSE subversion = ""
 $ ENDIF
 $!
-$ version = F$EXTRACT(0,1,baserev) + "_" + patchlevel + subversion
+$ version = baserev + "_" + patchlevel + "_" + subversion
 $!
 $ IF (.NOT.vms_skip_install)
 $ THEN
@@ -1597,7 +1610,7 @@ no easy means to double check it. The default value provided below
 is most probably close to the reality but may not be valid from outside
 your organization...
 $ ENDIF
-$ dflt = "''cf_by@''myhostname'"+"''mydomain'"
+$ dflt = "''cf_by'@''myhostname'"+"''mydomain'"
 $ rp = "What is your e-mail address? [''dflt'] "
 $ GOSUB myread
 $ IF ans .nes. ""
@@ -1685,16 +1698,16 @@ $ endif
 $!
 $!
 $! Ask if they want to build with VMS_DEBUG perl
+$ echo ""
 $ echo "Perl can be built to run under the VMS debugger."
 $ echo "You should only select this option if you are debugging"
 $ echo "perl itself.  This can be a useful feature if you are "
 $ echo "embedding perl in a program."
-$ echo ""
-$ dflt = "N"
+$ dflt = "n"
 $ rp = "Build a VMS-DEBUG version of Perl? [''dflt'] "
 $ GOSUB myread
-$   if ans.eqs."" then ans = dflt
-$ if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
+$ IF ans.eqs."" then ans = dflt
+$ IF F$EXTRACT(0, 1, F$EDIT(ans,"COLLAPSE,UPCASE")) .eqs. "Y"
 $ THEN
 $   use_vmsdebug_perl = "Y"
 $   macros = macros + """__DEBUG__=1"","
@@ -1703,18 +1716,18 @@ $   use_vmsdebug_perl = "N"
 $ ENDIF
 $!
 $! Ask if they want to build with MULTIPLICITY
+$ echo ""
 $ echo "The perl interpreter engine can be built in a way that makes it
-$ echo "possible for a program that embeds perl into it (and yep, you can
+$ echo "possible for a program that embeds perl into it (and yes, you can
 $ echo "do that--it's pretty keen) to have multiple perl interpreters active
 $ echo "at once. There is some performance overhead, however, so you
 $ echo "probably don't want to choose this unless you're going to be doing
 $ echo "funky perl embedding."
-$ echo ""
 $ dflt = "n"
 $ rp = "Build with MULTIPLICITY? [''dflt'] "
 $ GOSUB myread
-$   if ans.eqs."" then ans = dflt
-$ if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
+$ if ans.eqs."" then ans = dflt
+$ IF F$EXTRACT(0, 1, F$EDIT(ans,"COLLAPSE,UPCASE")) .eqs. "Y"
 $ THEN
 $   use_multiplicity="Y"
 $ ELSE
@@ -1724,37 +1737,16 @@ $!
 $! Ask if they want to build with 64-bit support
 $ if (Archname.eqs."VMS_AXP").and.("''f$extract(1,3, f$getsyi(""version""))'".ges."7.1")
 $ THEN
-$   echo "This version of perl has experimental support for building wtih
-$   echo "64 bit integers and 128 bit floating point variables. This gives
-$   echo "a much larger range for perl's mathematical operations. (Note that
-$   echo "does *not* enable 64-bit fileops at the moment, as Dec C doesn't
-$   echo "do that yet)"
 $   echo ""
-$   dflt = use_64bit
-$   rp = "Build with 64 bits? [''dflt'] "
-$   GOSUB myread
-$     if ans.eqs."" then ans = dflt
-$   if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
-$   THEN
-$     use_64bit="Y"
-$   ELSE
-$     use_64bit="N"
-$   ENDIF
-$ ENDIF
-$!
-$! Ask if they want to build with 64-bit support
-$ if (Archname.eqs."VMS_AXP").and.("''f$extract(1,3, f$getsyi(""version""))'".ges."7.1")
-$ THEN
-$   echo "This version of perl has experimental support for building wtih
+$   echo "This version of perl has experimental support for building with
 $   echo "64 bit integers and 128 bit floating point variables. This gives
 $   echo "a much larger range for perl's mathematical operations. (Note that
 $   echo "does *not* enable 64-bit fileops at the moment, as Dec C doesn't
 $   echo "do that yet)"
-$   echo ""
 $   dflt = use_64bit
 $   rp = "Build with 64 bits? [''dflt'] "
 $   GOSUB myread
-$     if ans.eqs."" then ans = dflt
+$   if ans.eqs."" then ans = dflt
 $   if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
 $   THEN
 $     use_64bit="Y"
@@ -1762,13 +1754,14 @@ $   ELSE
 $     use_64bit="N"
 $   ENDIF
 $ ENDIF
+$!
 $! Ask about threads, if appropriate
 $ if (Using_Dec_C.eqs."Yes")
 $ THEN
+$   echo ""
 $   echo "This version of Perl can be built with threads. While really nifty,
 $   echo "they are a beta feature, and there is a speed penalty for perl
 $   echo "programs if you build with threads *even if you don't use them*
-$   echo ""
 $   dflt = "n"
 $   rp = "Build with threads? [''dflt'] "
 $   GOSUB myread
@@ -1788,7 +1781,6 @@ $       echo "all the threads in a program, even on a single-processor
 $       echo "machine. Unfortunately this feature isn't safe on an
 $       echo "unpatched 7.1 system. (Several OS patches were required when
 $       echo "this procedure was written)
-$       echo ""
 $       dflt = "n"
 $       rp = "Enable multiple kernel threads and upcalls? [''dflt'] "
 $       gosub myread
@@ -1816,7 +1808,6 @@ $ echo "This restriction does not apply to the %ENV hash or to implicit"
 $ echo "logical name translation during parsing of file specifications;"
 $ echo "these always use the normal sequence of access modes for logical"
 $ echo "name translation."
-$ echo ""
 $ dflt = "n"
 $ rp = "Use secure logical name translation? [''dflt'] "
 $ GOSUB myread
@@ -1832,12 +1823,11 @@ $ echo "default file types, however, you can configure Perl to try default"
 $ echo "file types of nothing, .pl, and .com, in that order (e.g. typing"
 $ echo """$ perl foo"" would cause Perl to look for foo., then foo.pl, and"
 $ echo "finally foo.com)."
-$ echo ""
 $ dflt = "n"
 $ rp = "Always use default file types? [''dflt'] "
 $ GOSUB myread
 $ if ans.eqs."" then ans="''dflt'"
-$ d_alwdeftype = f$extract(0, 1, f$edit(ans,"TRIM,COMPRESS,UPCASE"))
+$ d_alwdeftype = f$extract(0, 1, f$edit(ans,"COLLAPSE,UPCASE"))
 $!
 $! Ask if they want to use perl's memory allocator
 $ echo ""
@@ -1845,12 +1835,11 @@ $ echo "Perl has a built-in memory allocator that's tuned for perl's
 $ echo "normal memory usage. It's oftentimes better than the standard
 $ echo "system memory allocator. It also has the advantage of providing
 $ echo "memory allocation statistics, if you choose to enable them.
-$ echo ""
 $ dflt = "n"
 $ rp = "Build with perl's memory allocator? [''dflt'] "
 $ GOSUB myread
 $ if ans.eqs."" then ans="''dflt'"
-$ mymalloc = f$extract(0, 1, f$edit(ans,"TRIM,COMPRESS,UPCASE"))
+$ mymalloc = f$extract(0, 1, f$edit(ans,"COLLAPSE,UPCASE"))
 $ if mymalloc.eqs."Y"
 $ THEN
 $   if use_debugging_perl.eqs."Y"
@@ -1859,12 +1848,11 @@ $     echo ""
 $     echo "Perl can keep statistics on memory usage if you choose to use
 $     echo "them. This is useful for debugging, but does have some
 $     echo "performance overhead.
-$     echo ""
 $     dflt = "n"
 $     rp = "Do you want the debugging memory allocator? [''dflt'] "
 $     gosub myread
 $     if ans.eqs."" then ans="''dflt'"
-$     use_debugmalloc = f$extract(0, 1, f$edit(ans, "TRIM,COMPRESS,UPCASE"))
+$     use_debugmalloc = f$extract(0, 1, f$edit(ans, "COLLAPSE,UPCASE"))
 $   ENDIF
 $   ! Check which memory allocator we want
 $   echo ""
@@ -1875,7 +1863,6 @@ $   echo "larger allocations), and PACK_MALLOC (which is optimized to save
 $   echo "memory for smaller allocations). They're all good, but if your
 $   echo "usage tends towards larger chunks use TWO_POT, otherwise use
 $   echo "PACK_MALLOC."
-$   echo ""
 $   dflt = "DEFAULT"
 $   rp = "Memory allocator (DEFAULT, TWO_POT, PACK_MALLOC) [''dflt'] "
 $   GOSUB myread
@@ -1892,8 +1879,8 @@ $ echo "you might, for example, want to build GDBM_File instead of
 $ echo "SDBM_File if you have the GDBM library built on your machine
 $ echo "
 $ echo "Which modules do you want to build into perl?"
-$! dflt = "Fcntl Errno IO Opcode Byteloader Devel::Peek Devel::DProf Data::Dumper attrs re VMS::Stdio VMS::DCLsym B SDBM_File"
-$ dflt = "Fcntl Errno IO Opcode Devel::Peek Devel::DProf Data::Dumper attrs re VMS::Stdio VMS::DCLsym B SDBM_File"
+$! dflt = "Fcntl Errno File::Glob IO Opcode Byteloader Devel::Peek Devel::DProf Data::Dumper attrs re VMS::Stdio VMS::DCLsym B SDBM_File"
+$ dflt = "Fcntl Errno File::Glob IO Opcode Devel::Peek Devel::DProf Data::Dumper attrs re VMS::Stdio VMS::DCLsym B SDBM_File"
 $ if Using_Dec_C.eqs."Yes"
 $ THEN
 $   dflt = dflt + " POSIX"
@@ -2048,10 +2035,17 @@ $ SET DEFAULT [-.vms]
 $ @subconfigure
 $ SET DEFAULT 'dflt
 $!
-$!  Warn of dangerous logical names
+$!  Warn of dangerous symbols or logical names
 $!
-$Bad_logical: SUBROUTINE
-$   IF f$trnlnm(p1) .nes. ""
+$Bad_environment: SUBROUTINE
+$   Bad_env = ""
+$   IF p2 .eqs. "SYMBOL"
+$   THEN
+$     IF f$type('p1) .nes. "" THEN  Bad_env := SYMBOL
+$   ELSE
+$     IF f$trnlnm(p1) .nes. "" THEN Bad_env := LOGICAL
+$   ENDIF
+$   IF Bad_env .eqs. "SYMBOL" .or. Bad_env .eqs. "LOGICAL"
 $   THEN
 $     IF f$search("config.msg") .nes. ""
 $     THEN
@@ -2059,19 +2053,38 @@ $       OPEN/APPEND CONFIG config.msg
 $     ELSE
 $       OPEN/WRITE CONFIG config.msg
 $     ENDIF
-$     WRITE CONFIG "Logical name ''p1' found in environment as " + f$trnlnm(p1)
-$     WRITE CONFIG " deassign before building ''package'"
+$     IF Bad_env .eqs. "SYMBOL"
+$     THEN
+$       WRITE CONFIG ""
+$       WRITE CONFIG "Symbol name ''p1' found in environment as " + &p1
+$       WRITE CONFIG " delete before building ''package' via:"
+$       WRITE CONFIG "     $ DELETE/SYMBOL/GLOBAL ''p1'"
+$       IF f$locate("""",&p1) .ge. f$length(&p1)
+$       THEN
+$       WRITE CONFIG " after building, testing, and installing ''package'
+$       WRITE CONFIG " restore the symbol with:"
+$       WRITE CONFIG "     $ ''p1' == """ + &p1 + """"
+$       ENDIF
+$     ENDIF
+$     IF Bad_env .eqs. "LOGICAL"
+$     THEN
+$       WRITE CONFIG ""
+$       WRITE CONFIG "Logical name ''p1' found in environment as " + f$trnlnm(p1)
+$       WRITE CONFIG " deassign before building ''package'"
+$     ENDIF
 $     CLOSE CONFIG
+$     Bad_env = ""
 $   ENDIF
 $ EXIT
-$ ENDSUBROUTINE ! Bad_logical
+$ ENDSUBROUTINE ! Bad_environment
 $ echo ""
-$ echo4 "%Config-I-VMS, Checking for dangerous pre extant logical names."
-$ CALL Bad_logical "TMP"
-$ CALL Bad_logical "LIB"
-$ CALL Bad_logical "T"
-$ CALL Bad_logical "FOO"
-$ CALL Bad_logical "EXT"
+$ echo4 "%Config-I-VMS, Checking for dangerous pre extant global symbols and logical names."
+$ CALL Bad_environment "TMP"
+$ CALL Bad_environment "LIB"
+$ CALL Bad_environment "T"
+$ CALL Bad_environment "FOO"
+$ CALL Bad_environment "EXT"
+$ CALL Bad_environment "TEST" "SYMBOL"
 $ IF f$search("config.msg") .eqs. "" THEN echo "OK."
 $!
 $! %Config-I-VMS, write perl_setup.com here