This patch covers what to my knowledge are the minimal changes necessary
for RC1 to build and pass the tests under VMS. There're still a few
heisenbugs on some AXPs, and two tests in lib/complex.t which fail on
the VAX because the native G floats have more precision than the test
allows, but the basics are all here.
I haven't made any changes to the repository so as not to complicate
the construction of RC2.
Enjoy!
Regards,
Charles Bailey [EMAIL PROTECTED]
#: Allow configure.com to run in batch
diff -ur perl-5_6_0-rc1/configure.com perl-5_6_0-rc1_vms//configure.com
--- perl-5_6_0-rc1/configure.com Tue Mar 7 23:33:25 2000
+++ perl-5_6_0-rc1_vms//configure.com Thu Mar 9 21:42:53 2000
@@ -30,8 +30,7 @@
$! the whole VMSPerl crew.
$! Extended and messed about with by Dan Sugalski
$!
-$! SET NOVERIFY
-$ sav_ver = F$VERIFY(sav_ver)
+$ sav_ver = F$VERIFY(0)
$!
$! VMS-isms we will need:
$ echo = "write sys$output "
#: Balance braces included by INC_VERSION_LIST
diff -ur perl-5_6_0-rc1/perl.c perl-5_6_0-rc1_vms//perl.c
--- perl-5_6_0-rc1/perl.c Wed Mar 8 11:53:33 2000
+++ perl-5_6_0-rc1_vms//perl.c Thu Mar 9 20:28:39 2000
@@ -3402,8 +3402,8 @@
av_push(GvAVn(PL_incgv), newSVsv(subdir));
}
- if (addoldvers) {
#ifdef PERL_INC_VERSION_LIST
+ if (addoldvers) {
for (incver = incverlist; *incver; incver++) {
/* .../xxx if -d .../xxx */
Perl_sv_setpvf(aTHX_ subdir, "%"SVf"/%s", libdir, *incver);
#: VMS directories end in .dir, which must be specified if you attempt
#: to open them as ordinary files.
diff -ur perl-5_6_0-rc1/t/pragma/warn/doio perl-5_6_0-rc1_vms//t/pragma/warn/doio
--- perl-5_6_0-rc1/t/pragma/warn/doio Tue Dec 28 00:06:19 1999
+++ perl-5_6_0-rc1_vms//t/pragma/warn/doio Fri Mar 10 02:05:02 2000
@@ -156,7 +156,7 @@
########
# doio.c [Perl_nextargv]
$^W = 0 ;
-my $filename = "./temp" ;
+my $filename = "./temp.dir" ;
mkdir $filename, 0777
or die "Cannot create directory $filename: $!\n" ;
{
@@ -178,8 +178,8 @@
}
rmdir $filename ;
EXPECT
-Can't do inplace edit: ./temp is not a regular file at - line 9.
-Can't do inplace edit: ./temp is not a regular file at - line 21.
+Can't do inplace edit: ./temp.dir is not a regular file at - line 9.
+Can't do inplace edit: ./temp.dir is not a regular file at - line 21.
########
# doio.c [Perl_do_eof]
#: Original test overflows 32-bit G float
diff -ur perl-5_6_0-rc1/t/pragma/warn/util perl-5_6_0-rc1_vms//t/pragma/warn/util
--- perl-5_6_0-rc1/t/pragma/warn/util Wed Sep 8 20:21:40 1999
+++ perl-5_6_0-rc1_vms//t/pragma/warn/util Fri Mar 10 02:04:54 2000
@@ -14,7 +14,7 @@
Binary number > 0b11111111111111111111111111111111 non-portable
$a = oct "0b111111111111111111111111111111111" ;
Integer overflow in octal number
- my $a = oct "0777777777777777777777777777777777777777777777777" ;
+ my $a = oct "077777777777777777777777777777" ;
Octal number > 037777777777 non-portable
$a = oct "0047777777777" ;
Integer overflow in hexadecimal number
@@ -65,9 +65,9 @@
########
# util.c
use warnings 'overflow' ;
-my $a = oct "0777777777777777777777777777777777777777777777777" ;
+my $a = oct "077777777777777777777777777777" ;
no warnings 'overflow' ;
-$a = oct "0777777777777777777777777777777777777777777777777" ;
+$a = oct "077777777777777777777777777777" ;
EXPECT
Integer overflow in octal number at - line 3.
########
#: Added missing symbols for current config_h.SH
diff -ur perl-5_6_0-rc1/vms/subconfigure.com perl-5_6_0-rc1_vms//vms/subconfigure.com
--- perl-5_6_0-rc1/vms/subconfigure.com Tue Mar 7 23:33:25 2000
+++ perl-5_6_0-rc1_vms//vms/subconfigure.com Thu Mar 9 23:17:42 2000
@@ -67,6 +67,14 @@
$ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
$!
$! ##ADD NEW CONSTANTS HERE##
+$ perl_shmattype = ""
+$ perl_mmaptype = ""
+$ perl_gidformat = "lu"
+$ perl_gidsize = "4"
+$ perl_groupstype = "Gid_t"
+$ perl_stdio_stream_array = ""
+$ perl_uidformat = "lu"
+$ perl_uidsize = "4"
$ perl_d_getcwd = "undef"
$ perl_d_nv_preserves_uv = "define"
$ perl_d_fs_data_s = "undef"
@@ -83,12 +91,10 @@
$ perl_d_llseek="undef"
$ perl_d_iconv="undef"
$ perl_d_madvise="undef"
-$ perl_selectminbits=32
-$ perl_d_vendorarch="define"
+$ perl_selectminbits="32"
+$ perl_d_vendorarch="undef"
$ perl_vendorarchexp=""
$ perl_d_msync="undef"
-$ perl_d_vendorarch="define"
-$ perl_vendorarchexp=""
$ perl_d_mprotect="undef"
$ perl_d_munmap="undef"
$ perl_crosscompile="undef"
@@ -110,6 +116,7 @@
$ perl_usesocks="undef"
$ perl_d_vendorlib="undef"
$ perl_vendorlibexp=""
+$ perl_vendorlib_stem=""
$ perl_d_statfsflags="undef"
$ perl_i_sysstatvfs="undef"
$ perl_i_mntent="undef"
@@ -234,6 +241,9 @@
$ perl_d_bincompat3="undef"
$ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
$ perl_cppminus=" "
+$ perl_cpprun="''Perl_CC'/noobj/preprocess=sys$output sys$input"
+$ perl_cpplast=" "
+$ perl_aphostname=""
$ perl_d_castneg="define"
$ perl_castflags="0"
$ perl_d_chsize="undef"
@@ -404,6 +414,7 @@
$ perl_privlib="''perl_prefix':[lib]"
$ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
$ perl_sitelib="''perl_prefix':[lib.site_perl]"
+$ perl_sitelib_stem="''perl_prefix':[lib.site_perl]"
$ perl_sizetype="size_t"
$ perl_i_sysparam="undef"
$ perl_d_void_closedir="define"
@@ -472,6 +483,7 @@
$ perl_d_quad = "define"
$ perl_quadtype = "long long"
$ perl_uquadtype = "unsigned long long"
+$ perl_quadkind = "QUAD_IS_LONG_LONG"
$ ELSE
$ perl_d_PRIfldbl = "undef"
$ perl_d_PRIgldbl = "undef"
@@ -486,6 +498,9 @@
$ perl_sPRIo64 = ""
$ perl_sPRIx64 = ""
$ perl_d_quad = "undef"
+$ perl_quadtype = "long"
+$ perl_uquadtype = "unsigned long"
+$ perl_quadkind = "QUAD_IS_LONG"
$ ENDIF
$!
$! Now some that we build up
@@ -3745,6 +3760,8 @@
$ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
$ WC "cppstdin='" + perl_cppstdin + "'"
$ WC "cppminus='" + perl_cppminus + "'"
+$ WC "cpprun='" + perl_cpprun + "'"
+$ WC "cpplast='" + perl_cpplast + "'"
$ WC "d_bcmp='" + perl_d_bcmp + "'"
$ WC "d_bcopy='" + perl_d_bcopy + "'"
$ WC "d_bzero='" + perl_d_bzero + "'"
@@ -3767,6 +3784,7 @@
$ WC "d_gettimeod='" + perl_d_gettimeod + "'"
$ WC "d_getgrps='" + perl_d_getgrps + "'"
$ WC "d_setgrps='" + perl_d_setgrps + "'"
+$ WC "groupstype='" + perl_groupstype + "'"
$ WC "d_uname='" + perl_d_uname + "'"
$ WC "d_getprior='" + perl_d_getprior + "'"
$ WC "d_killpg='" + perl_d_killpg + "'"
@@ -3800,6 +3818,7 @@
$ WC "d_setsid='" + perl_d_setsid + "'"
$ WC "d_shm='" + perl_d_shm + "'"
$ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
+$ WC "shmattype='" + perl_shmattype + "'"
$ WC "d_sigaction='" + perl_d_sigaction + "'"
$ WC "d_statblks='" + perl_d_statblks + "'"
$ WC "stdio_ptr='" + perl_stdio_ptr + "'"
@@ -3868,6 +3887,7 @@
$ WC "prototype='" + perl_prototype + "'"
$ WC "randbits='" + perl_randbits +"'"
$ WC "selecttype='" + perl_selecttype + "'"
+$ WC "selectminbits='" + perl_selectminbits + "'"
$ WC "stdchar='" + perl_stdchar + "'"
$ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
$ WC "full_sed='" + perl_full_sed + "'"
@@ -3931,6 +3951,7 @@
$ WC "privlib='" + perl_privlib + "'"
$ WC "sitelibexp='" + perl_sitelibexp + "'"
$ WC "sitelib='" + perl_sitelib + "'"
+$ WC "sitelib_stem='" + perl_sitelib_stem + "'"
$ WC "sitearchexp='" + perl_sitearchexp + "'"
$ WC "sitearch='" + perl_sitearch + "'"
$ WC "sizetype='" + perl_sizetype + "'"
@@ -3980,9 +4001,15 @@
$ WC tempstring
$ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
$ WC tempstring
+$ WC "xs_apiversion='" + localperlver + "'"
+$ WC "pm_apiversion='" + localperlver + "'"
$ WC "pager='" + perl_pager + "'"
$ WC "uidtype='" + perl_uidtype + "'"
+$ WC "uidformat='" + perl_uidformat + "'"
+$ WC "uidsize='" + perl_uidsize + "'"
$ WC "gidtype='" + perl_gidtype + "'"
+$ WC "gidformat='" + perl_gidformat + "'"
+$ WC "gidsize='" + perl_gidsize + "'"
$ WC "usethreads='" + perl_usethreads + "'"
$ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
$ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
@@ -4056,6 +4083,7 @@
$ WC "devtype='" + perl_devtype + "'"
$ WC "d_gethname='" + perl_d_gethname + "'"
$ WC "d_phostname='" + perl_d_phostname + "'"
+$ WC "aphostname='" + perl_aphostname + "'"
$ WC "d_accessx='" + perl_d_accessx + "'"
$ WC "d_eaccess='" + perl_d_eaccess + "'"
$ WC "i_ieeefp='" + perl_i_ieeefp + "'"
@@ -4104,6 +4132,7 @@
$ WC "fflushNULL='define'"
$ WC "fflushall='undef'"
$ WC "d_stdio_stream_array='undef'"
+$ WC "stdio_stream_array='" + perl_stdio_stream_array + "'"
$ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
$ WC "i_syslog='" + perl_i_syslog + "'"
$ WC "i_sysmode='" + perl_i_sysmode + "'"
@@ -4120,6 +4149,7 @@
$ WC "d_mprotect='" + perl_d_mprotect + "'"
$ WC "d_munmap='" + perl_d_munmap + "'"
$ WC "d_mmap='" + perl_d_mmap + "'"
+$ WC "mmaptype='" + perl_mmaptype + "'"
$ WC "i_sysmman='" + perl_i_sysmman + "'"
$ WC "installusrbinperl='" + perl_installusrbinperl + "'"
$! WC "selectminbits='" + perl_selectminbits + "'"
@@ -4133,6 +4163,7 @@
$ WC "usesocks='" + perl_usesocks + "'"
$ WC "d_vendorlib='" + perl_d_vendorlib + "'"
$ WC "vendorlibexp='" + perl_vendorlibexp + "'"
+$ WC "vendorlib_stem='" + perl_vendorlib_stem + "'"
$ WC "d_atolf='" + perl_d_atolf + "'"
$ WC "d_atoll='" + perl_d_atoll + "'"
$ WC "d_bincompat5005='" + perl_d_bincompat + "'"
@@ -4163,11 +4194,9 @@
$ WC "uselongdouble='" + perl_uselongdouble + "'"
$ WC "usemorebits='" + perl_usemorebits + "'"
$ WC "d_quad='" + perl_d_quad + "'"
-$ IF (use64bitint)
-$ THEN
-$ WC "quadtype='" + perl_quadtype + "'"
-$ WC "uquadtype='" + perl_uquadtype + "'"
-$ ENDIF
+$ WC "quadtype='" + perl_quadtype + "'"
+$ WC "uquadtype='" + perl_uquadtype + "'"
+$ WC "quadkind='" + perl_quadkind + "'"
$ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
$ WC "d_getcwd='" + perl_d_getcwd + "'"
$ WC "d_getmnt='" + perl_d_getmnt + "'"
## End of patch ##
