diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 05:03:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 05:03:09 +0000 |
| commit | e6df7ed16ebd06f5315f3016c00996876580109c (patch) | |
| tree | f5c43e9c4dbaf8473b6e71402004387426d4cf96 /vms | |
| parent | cb5d145d207493f0263c99601c0457a4af696821 (diff) | |
| download | perl-e6df7ed16ebd06f5315f3016c00996876580109c.tar.gz | |
VMS patches
From: pvhp@forte.com (Peter Prymmer)
Message-Id: <9807290017.AA01833@forte.com>
Date: Tue, 28 Jul 98 17:17:33 PDT
Subject: Re: Not OK: perl 5.00501 on VMS_AXP-thread I7.2
--
From: Dan Sugalski <sugalskd@osshe.edu>
Message-Id: <3.0.5.32.19980729125623.00b562b0@ous.edu>
Date: Wed, 29 Jul 1998 12:56:23 -0700
Subject: [PATCH 5.005_01]Typo in CONFIGURE.COM (vms)
--
From: Dan Sugalski <sugalskd@osshe.edu>
Date: Thu, 30 Jul 1998 09:02:24 -0700
Message-Id: <3.0.5.32.19980730090224.00b70eb0@ous.edu>
Subject: [PATCH 5.005_01]VMS config SOCKETSHR typo patch and fcntl check
p4raw-id: //depot/maint-5.005/perl@1696
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/subconfigure.com | 141 |
1 files changed, 140 insertions, 1 deletions
diff --git a/vms/subconfigure.com b/vms/subconfigure.com index d15adeb3ab..181ae65dfb 100644 --- a/vms/subconfigure.com +++ b/vms/subconfigure.com @@ -862,6 +862,145 @@ $ perl_selecttype = "int *" $ ENDIF $ WRITE_RESULT "selectype is ''perl_selecttype'" $! +$! Check for sys/file.h +$! +$ OS +$ WS "#ifdef __DECC +$ WS "#include <stdlib.h> +$ WS "#endif +$ WS "#include <stdio.h> +$ WS "#include <unistd.h> +$ WS "#include <sys/file.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.c +$ savedstatus = $status +$ teststatus = f$extract(9,1,savedstatus) +$ if (teststatus.nes."1") +$ THEN +$ perl_i_sysfile="undef" +$ DEASSIGN SYS$OUTPUT +$ DEASSIGN SYS$ERROR +$ ELSE +$ If (Needs_Opt.eqs."Yes") +$ THEN +$ link temp.obj,temp.opt/opt +$ else +$ link temp.obj +$ endif +$ savedstatus = $status +$ teststatus = f$extract(9,1,savedstatus) +$ DEASSIGN SYS$OUTPUT +$ DEASSIGN SYS$ERROR +$ if (teststatus.nes."1") +$ THEN +$ perl_i_sysfile="undef" +$ ELSE +$ perl_i_sysfile="define" +$ ENDIF +$ ENDIF +$ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'" +$! +$! Check for fcntl.h +$! +$ OS +$ WS "#ifdef __DECC +$ WS "#include <stdlib.h> +$ WS "#endif +$ WS "#include <stdio.h> +$ WS "#include <unistd.h> +$ WS "#include <fcntl.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.c +$ savedstatus = $status +$ teststatus = f$extract(9,1,savedstatus) +$ if (teststatus.nes."1") +$ THEN +$ perl_i_fcntl="undef" +$ DEASSIGN SYS$OUTPUT +$ DEASSIGN SYS$ERROR +$ ELSE +$ If (Needs_Opt.eqs."Yes") +$ THEN +$ link temp.obj,temp.opt/opt +$ else +$ link temp.obj +$ endif +$ savedstatus = $status +$ teststatus = f$extract(9,1,savedstatus) +$ DEASSIGN SYS$OUTPUT +$ DEASSIGN SYS$ERROR +$ if (teststatus.nes."1") +$ THEN +$ perl_i_fcntl="undef" +$ ELSE +$ perl_i_fcntl="define" +$ ENDIF +$ ENDIF +$ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'" +$! +$! Check for fcntl +$! +$ OS +$ WS "#ifdef __DECC +$ WS "#include <stdlib.h> +$ WS "#endif +$ WS "#include <stdio.h> +$ WS "#include <unistd.h> +$ WS "#include <fcntl.h> +$ WS "int main() +$ WS "{" +$ WS "fcntl(1,2,3); +$ WS "exit(0); +$ WS "}" +$ CS +$ DEFINE SYS$ERROR _NLA0: +$ DEFINE SYS$OUTPUT _NLA0: +$ on error then continue +$ on warning then continue +$ 'Checkcc' temp.c +$ savedstatus = $status +$ teststatus = f$extract(9,1,savedstatus) +$ if (teststatus.nes."1") +$ THEN +$ perl_d_fcntl="undef" +$ DEASSIGN SYS$OUTPUT +$ DEASSIGN SYS$ERROR +$ ELSE +$ If (Needs_Opt.eqs."Yes") +$ THEN +$ link temp.obj,temp.opt/opt +$ else +$ link temp.obj +$ endif +$ savedstatus = $status +$ teststatus = f$extract(9,1,savedstatus) +$ DEASSIGN SYS$OUTPUT +$ DEASSIGN SYS$ERROR +$ if (teststatus.nes."1") +$ THEN +$ perl_d_fcntl="undef" +$ ELSE +$ perl_d_fcntl="define" +$ ENDIF +$ ENDIF +$ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'" +$! $! Check for bzero $! $ OS @@ -2429,7 +2568,7 @@ $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1" $ ELSE $ if "''Has_Socketshr'" .eqs."T" $ THEN -$ SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1" +$ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1" $ ELSE $ SOCKET_REPLACE = "SOCKET=" $ ENDIF |