diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-26 13:39:14 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-26 13:39:14 +0000 |
commit | 873ef191be9d12eed8116e23926efe319c6ed859 (patch) | |
tree | 88d2e70ffc2b1d49d8556a53ae1709fb84e6e6b6 /ext | |
parent | cedea190b107621491e9374674b8382221691335 (diff) | |
download | perl-873ef191be9d12eed8116e23926efe319c6ed859.tar.gz |
[asperl] tweaks to make it build with the Borland compiler. Won't run
testsuite because @INC intuition from location of perlcore.dll seems
to be broken. Also, system() and qx// seem broken as well.
p4raw-id: //depot/asperl@1033
Diffstat (limited to 'ext')
-rw-r--r-- | ext/POSIX/POSIX.xs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 1dba9a61f8..b49fa4281e 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -5,6 +5,12 @@ #define PERLIO_NOT_STDIO 1 #include "perl.h" #include "XSUB.h" +#ifdef PERL_OBJECT +# undef signal +# undef open +# undef TAINT_PROPER +# define TAINT_PROPER(a) /* XXX hack */ +#endif #include <ctype.h> #ifdef I_DIRENT /* XXX maybe better to just rely on perl.h? */ #include <dirent.h> @@ -99,7 +105,7 @@ #if defined (WIN32) # undef mkfifo /* #defined in perl.h */ # define mkfifo(a,b) not_here("mkfifo") -# define ttyname(a) not_here("ttyname") +# define ttyname(a) (char*)not_here("ttyname") # define sigset_t long # define pid_t long # ifdef __BORLANDC__ |