|
Lines 346-352
get_path(PARROT_INTERP, ARGIN_NULLOK(STR
Link Here
|
| 346 |
|
346 |
|
| 347 |
/* And on cygwin replace a leading "lib" by "cyg". */ |
347 |
/* And on cygwin replace a leading "lib" by "cyg". */ |
| 348 |
#ifdef __CYGWIN__ |
348 |
#ifdef __CYGWIN__ |
| 349 |
if (!STRING_length(lib) >= 3 && memcmp(lib->strstart, "lib", 3) == 0) { |
349 |
if (STRING_length(lib) >= 3 && memcmp(lib->strstart, "lib", 3) == 0) { |
| 350 |
path = Parrot_str_concat(interp, CONST_STRING(interp, "cyg"), |
350 |
path = Parrot_str_concat(interp, CONST_STRING(interp, "cyg"), |
| 351 |
STRING_substr(interp, lib, 3, lib->strlen - 3)); |
351 |
STRING_substr(interp, lib, 3, lib->strlen - 3)); |
| 352 |
|
352 |
|
|
Lines 357-363
get_path(PARROT_INTERP, ARGIN_NULLOK(STR
Link Here
|
| 357 |
} |
357 |
} |
| 358 |
#endif |
358 |
#endif |
| 359 |
|
359 |
|
| 360 |
if (!STRING_length(lib)) { |
360 |
if (STRING_length(lib)) { |
| 361 |
*handle = dlopen_string(interp, flags, lib); |
361 |
*handle = dlopen_string(interp, flags, lib); |
| 362 |
if (*handle) |
362 |
if (*handle) |
| 363 |
return lib; |
363 |
return lib; |
