Set up for vendorarch (and fix 64bitint typo) (Dan Sugalski)

p4raw-id: //depot/vmsperl@5567

diff --git a/configure.com b/configure.com
index bdd0acc..aefd4ae 100644 (file)
--- a/configure.com
+++ b/configure.com
@@ -1793,10 +1793,11 @@ $     echo "
 $     echo "If you're a casual user, you probably don't want
 $     echo "interpreter-threads at this time.  There doesn't yet exist
 $     echo "a way to create threads from within Perl in this model,
-$     echo "i.e., "use Thread;" will NOT work.
+$     echo "i.e., ""use Thread;"" will NOT work.
 $     echo "
 $     dflt = "n"
 $     rp = "Build with Interpreter threads? [''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

diff --git a/vms/subconfigure.com b/vms/subconfigure.com
index 41a1422..5c1c4a3 100644 (file)
--- a/vms/subconfigure.com
+++ b/vms/subconfigure.com
@@ -85,6 +85,8 @@ $ perl_d_iconv="undef"
 $ perl_d_madvise="undef"
 $ perl_selectminbits=32
 $ perl_d_msync="undef"
+$ perl_d_vendorarch="define"
+$ perl_vendorarchexp=""
 $ perl_d_mprotect="undef"
 $ perl_d_munmap="undef"
 $ perl_crosscompile="undef"
@@ -3536,7 +3538,7 @@ $ size_name = "u32size"
 $ gosub type_size_check
 $ perl_u32size="''line'"
 $
-$ If use_64bitint
+$ If use64bitint
 $ Then
 $   type = "''perl_i64type'"
 $   size_name = "i64size"
@@ -4120,6 +4122,8 @@ $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
 $ WC "d_ustat='" + perl_d_ustat + "'"
+$ WC "d_vendorarch='" + perl_d_vendorarch + "'"
+$ WC "vendorarchexp='" + perl_vendorarchexp + "'"
 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
 $ WC "i_ustat='" + perl_i_ustat + "'"