diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-27 21:15:07 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-27 21:15:07 +0000 |
| commit | d543acb6a7b5779dc3f569b762833cd9da27fd50 (patch) | |
| tree | e0b64488f06758ca8e9dc8b83532c9f7fc2155aa /perl.h | |
| parent | 2b260de0f3727bc62519897f69d6f752c97d8502 (diff) | |
| download | perl-d543acb6a7b5779dc3f569b762833cd9da27fd50.tar.gz | |
patch up egcs-1.1.2-mingw32 build (builds a working miniperl, but not
perl; stdout/stderr redirects seem broken as well)
p4raw-id: //depot/perl@4474
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -31,7 +31,7 @@ # define PERL_IMPLICIT_CONTEXT # endif # ifndef PERL_IMPLICIT_SYS -# ifdef WIN32 +# if defined(WIN32) && !defined(__MINGW32__) # define PERL_IMPLICIT_SYS /* XXX not implemented everywhere yet */ # endif # endif @@ -42,7 +42,7 @@ # define PERL_IMPLICIT_CONTEXT # endif # ifndef PERL_IMPLICIT_SYS -# ifdef WIN32 +# if defined(WIN32) && !defined(__MINGW32__) # define PERL_IMPLICIT_SYS /* XXX not implemented everywhere yet */ # endif # endif @@ -2139,7 +2139,7 @@ I32 unlnk (char*); # endif #endif -typedef Signal_t (*Sighandler_t) (int); +/* Sighandler_t defined in iperlsys.h */ #ifdef HAS_SIGACTION typedef struct sigaction Sigsave_t; @@ -2635,7 +2635,7 @@ EXT struct perl_vars *PL_VarsPtr INIT(&PL_Vars); EXT #endif /* WIN32 */ struct perl_vars *PL_VarsPtr; -#define PL_Vars (*((PL_VarsPtr) ? PL_VarsPtr : (PL_VarsPtr = Perl_GetVars()))) +#define PL_Vars (*((PL_VarsPtr) ? PL_VarsPtr : (PL_VarsPtr = Perl_GetVars(aTHX)))) #endif /* PERL_CORE */ #endif /* PERL_GLOBAL_STRUCT */ |