diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-26 08:03:36 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-26 08:03:36 +0000 |
| commit | a3ef2c6f736628e81e9ce2a07226bd754872ac62 (patch) | |
| tree | d02e7630758eddf61148ab74b7da0ee1e8a881b2 /vms/subconfigure.com | |
| parent | b53966b714702582c174d65358b25d017375948b (diff) | |
| download | perl-a3ef2c6f736628e81e9ce2a07226bd754872ac62.tar.gz | |
VMS patch (from Peter Prymmer)
p4raw-id: //depot/perl@5271
Diffstat (limited to 'vms/subconfigure.com')
| -rw-r--r-- | vms/subconfigure.com | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/vms/subconfigure.com b/vms/subconfigure.com index dae2bdaf07..dfa3482c88 100644 --- a/vms/subconfigure.com +++ b/vms/subconfigure.com @@ -141,6 +141,7 @@ $ perl_uselargefiles = "undef" $ perl_uselongdouble = "undef" $ perl_usemorebits = "undef" $ ENDIF +$ use_64bitall = use_64bitint ! until configure.com question is reworded? $ IF use_64bitall .eqs. "Y" $ THEN $ perl_use64bitall = "define" @@ -3349,7 +3350,12 @@ $ perl_d_gethostprotos="define" $ perl_d_getnetprotos="define" $ perl_d_getprotoprotos="define" $ perl_d_getservprotos="define" -$ perl_sock_size_type="int *" +$ IF ("''Using_Dec_C'".EQS."Yes") +$ THEN +$ perl_socksizetype="unsigned int" +$ ELSE +$ perl_socksizetype="int *" +$ ENDIF $ ELSE $ perl_d_vms_do_sockets="undef" $ perl_d_htonl="undef" @@ -3371,7 +3377,7 @@ $ perl_d_gethostprotos="undef" $ perl_d_getnetprotos="undef" $ perl_d_getprotoprotos="undef" $ perl_d_getservprotos="undef" -$ perl_sock_size_type="undef" +$ perl_socksizetype="undef" $ ENDIF $! Threads $ if ("''use_threads'".eqs."T") @@ -3919,7 +3925,7 @@ $ WC "netdb_host_type='" + perl_netdb_host_type + "'" $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'" $ WC "netdb_name_type='" + perl_netdb_name_type + "'" $ WC "netdb_net_type='" + perl_netdb_net_type + "'" -$ WC "sock_size_type='" + perl_sock_size_type + "'" +$ WC "socksizetype='" + perl_socksizetype + "'" $ WC "baserev='" + perl_baserev + "'" $ WC "doublesize='" + perl_doublesize + "'" $ WC "ptrsize='" + perl_ptrsize + "'" |