diff options
| author | Hans Mulder <hansmu@xs4all.nl> | 1998-06-29 09:46:25 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-04 02:17:48 +0000 |
| commit | cb38e85fe5cf879c0366b3e1aaed3701e3839b29 (patch) | |
| tree | b88a536babe01b61e28fbda3e3273b2a54528c04 /vms | |
| parent | 8530e788ed7c379a2ce97baf3a0eaa5e1470f685 (diff) | |
| download | perl-cb38e85fe5cf879c0366b3e1aaed3701e3839b29.tar.gz | |
Tweaks to VMS configuration procedure
Message-Id: <3.0.5.32.19980629164625.00a4d7c0@ous.edu>
p4raw-id: //depot/perl@1281
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/subconfigure.com | 36 |
1 files changed, 33 insertions, 3 deletions
diff --git a/vms/subconfigure.com b/vms/subconfigure.com index c927017ff1..be4394c510 100644 --- a/vms/subconfigure.com +++ b/vms/subconfigure.com @@ -209,7 +209,7 @@ $ perl_i_termios="undef" $ perl_i_time="define" $ perl_i_systime="undef" $ perl_i_systimek="undef" -$ perl_i_unistd="undef" +$! perl_i_unistd="undef" $ perl_i_utime="undef" $ perl_i_varargs="undef" $ perl_i_vfork="undef" @@ -712,7 +712,7 @@ $ perl_gidtype = "gid_t" $ ENDIF $ WRITE_RESULT "Gid_t is ''perl_gidtype'" $! -$! Check the prototype for getgid +$! Check to see if we've got dev_t $! $ OS $ WS "#ifdef __DECC @@ -744,6 +744,36 @@ $ perl_devtype = "dev_t" $ ENDIF $ WRITE_RESULT "Dev_t is ''perl_devtype'" $! +$! Check to see if we've got unistd.h (which we ought to, but you never know) +$! +$ OS +$ WS "#ifdef __DECC +$ WS "#include <stdlib.h> +$ WS "#endif +$ WS "#include <unistd.h> +$ WS "int main() +$ WS "{" +$ WS "exit(0); +$ WS "}" +$ CS +$ DEFINE SYS$ERROR _NLA0: +$ DEFINE SYS$OUTPUT _NLA0: +$ on error then continue +$ on warning then continue +$ 'Checkcc' temp +$ teststatus = f$extract(9,1,$status) +$ DEASSIGN SYS$OUTPUT +$ DEASSIGN SYS$ERROR +$ if (teststatus.nes."1") +$ THEN +$! Okay, failed. Must not have it +$ perl_i_unistd = "undef" +$ ELSE +$ perl_i_unistd = "define" + +$ ENDIF +$ WRITE_RESULT "i_unistd is ''perl_i_unistd'" +$! $! Check the prototype for select $! $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") @@ -1918,7 +1948,7 @@ $ WC "installarchlib='" + perl_installarchlib + "'" $ WC "installsitelib='" + perl_installsitelib + "'" $ WC "installsitearch='" + perl_installsitearch + "'" $ WC "path_sep='" + perl_path_sep + "'" -$ WC "startperl='$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ perl_ + ++$status != 0 and $exit = $status = undef;'" +$ WC "startperl=""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ perl_ + ++$status != 0 and $exit = $status = undef;""" $ WC "vms_cc_type='" + perl_vms_cc_type + "'" $ WC "d_attribut='" + perl_d_attribut + "'" $ WC "cc='" + perl_cc + "'" |