diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-03-31 04:43:37 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-01 16:32:03 +0000 |
| commit | 5c728af092d5febae92774d9106a235643cb49e5 (patch) | |
| tree | f2b54077514f1f871504f57b7633df9dcdb72876 /os2/dl_os2.c | |
| parent | 15978375e3ac30958ab56d2e88249ad742eecd30 (diff) | |
| download | perl-5c728af092d5febae92774d9106a235643cb49e5.tar.gz | |
Integrate:
[ 19106]
Subject: [PATCH 5.8.1 @19053] OS/2-related patches
Message-ID: <20030331204337.GA3634@math.berkeley.edu>
and regen Configure.
p4raw-link: @19106 on //depot/maint-5.8/perl: 8257dec7ed17c0d4d721411d2a781ceadf724da5
p4raw-id: //depot/perl@19120
p4raw-edited: from //depot/maint-5.8/perl@19118 'edit in' embedvar.h
(@18804..)
p4raw-integrated: from //depot/maint-5.8/perl@19118 'copy in'
os2/Makefile.SHs os2/OS2/ExtAttr/Changes
os2/OS2/ExtAttr/ExtAttr.pm os2/OS2/PrfDB/Changes
os2/OS2/PrfDB/PrfDB.pm os2/OS2/REXX/DLL/DLL.pm
os2/OS2/REXX/REXX.pm os2/dl_os2.c os2/os2thread.h (@17645..)
ext/threads/threads.xs (@18619..) perlio.c (@18948..)
Makefile.SH (@19061..) 'ignore' embed.pl (@18872..) embed.h
(@19011..) embed.fnc (@19030..) 'merge in' os2/os2ish.h
(@17645..) os2/os2.c (@18347..) perlapi.h (@18804..) perlvars.h
(@18808..) makedef.pl (@18896..) intrpvar.h (@18920..) sv.c
(@18961..)
p4raw-edited: from //depot/maint-5.8/perl@19106 'edit in' Configure
(@19040..)
p4raw-integrated: from //depot/maint-5.8/perl@19106 'copy in' reentr.h
(@18850..) reentr.c reentr.pl (@18922..)
Diffstat (limited to 'os2/dl_os2.c')
| -rw-r--r-- | os2/dl_os2.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/os2/dl_os2.c b/os2/dl_os2.c index 5c8b6e6871..b698451b08 100644 --- a/os2/dl_os2.c +++ b/os2/dl_os2.c @@ -8,13 +8,23 @@ static ULONG retcode; static char fail[300]; +#ifdef PERL_CORE + +#include "EXTERN.h" +#include "perl.h" + +#else + char *os2error(int rc); +#endif + void * dlopen(const char *path, int mode) { HMODULE handle; - char tmp[260], *beg, *dot; + char tmp[260]; + const char *beg, *dot; ULONG rc; fail[0] = 0; |