Changeset 3224

Timestamp:

Apr 29, 2007, 8:32:02 PM (18 years ago)

Author:

bird

Message:

Resolve the path before attempting to load anything.

File:

• trunk/essentials/dev-lang/perl/os2/dl_os2.c (modified) (1 diff)

trunk/essentials/dev-lang/perl/os2/dl_os2.c ¶

@@ -113 +113 @@
             return 0;
         }
-        if ((rc = DosLoadModule(fail, sizeof fail, (char*)path, &handle)) == 0)
+        beg = tmp;
+        if (!_realrealpath(path, tmp, sizeof(tmp)))
+            beg = path;
+        if ((rc = DosLoadModule(fail, sizeof fail, (char *)beg, &handle)) == 0)
                 goto ret;