diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-15 07:42:12 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-15 07:42:12 +0000 |
| commit | 28578fc3ab74c533ed42d816d7c7ab5737c78521 (patch) | |
| tree | e40c3fe4d8449799cb18cc4f7702909c40713f4a /ext | |
| parent | 820c3be929853f3a88443f652f155f66eddf98ea (diff) | |
| download | perl-28578fc3ab74c533ed42d816d7c7ab5737c78521.tar.gz | |
OS/2 update
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DynaLoader/dl_os2.xs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/DynaLoader/dl_os2.xs b/ext/DynaLoader/dl_os2.xs index 5ca213b985..2c72be23ed 100644 --- a/ext/DynaLoader/dl_os2.xs +++ b/ext/DynaLoader/dl_os2.xs @@ -27,6 +27,8 @@ dlopen(char *path, int mode) if ((rc = DosLoadModule(fail, sizeof fail, path, &handle)) == 0) return (void *)handle; + retcode = rc; + /* Not found. Check for non-FAT name and try truncated name. */ /* Don't know if this helps though... */ for (beg = dot = path + strlen(path); @@ -42,7 +44,6 @@ dlopen(char *path, int mode) return (void *)handle; } - retcode = rc; return NULL; } |