diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-05-19 00:35:28 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-20 11:07:06 +0000 |
| commit | e71dd89fd63e118daa683ec46ecbae005acc944d (patch) | |
| tree | 89aab15906bb0030a5d84ab3137bfaf8e746a5c1 /os2/os2.c | |
| parent | 347fb9454d081c2681824ccfe356ab4a77ffa2a5 (diff) | |
| download | perl-e71dd89fd63e118daa683ec46ecbae005acc944d.tar.gz | |
build bugs OS/2
Message-ID: <20010519043528.A17363@math.ohio-state.edu>
p4raw-id: //depot/perl@10165
Diffstat (limited to 'os2/os2.c')
| -rw-r--r-- | os2/os2.c | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -205,18 +205,15 @@ loadByOrd(char *modname, ULONG ord) { if (ExtFCN[ord] == NULL) { static HMODULE hdosc = 0; - BYTE buf[20]; - PFN fcn; + PFN fcn = (PFN)-1; APIRET rc; - - if (!hdosc) { + if (!hdosc) hdosc = loadModule(modname); - if (CheckOSError(DosQueryProcAddr(hdosc, loadOrd[ord], NULL, &fcn))) - Perl_croak_nocontext( + if (CheckOSError(DosQueryProcAddr(hdosc, loadOrd[ord], NULL, &fcn))) + Perl_croak_nocontext( "This version of OS/2 does not support %s.%i", modname, loadOrd[ord]); - } ExtFCN[ord] = fcn; } if ((long)ExtFCN[ord] == -1) |