| Subject: | t/7-check-dynaloader.t doesn't handle systems with mod2fname |
Howdy!
This came up on Android, but also affects VMS and OS/2, as well as possibly Win32 in the future, plus any perl built with -Dd_libname_unique
On those platforms, shared library names need a bit if tweaking, so DynaLoader has an extra function defined which gets you exactly that, mod2fname; the problem with the tests is that it doesn't use that. Simple enough fix though:
- my $modfname = $modparts[-1];
+ my $modfname = defined &DynaLoader::mod2fname ? DynaLoader::mod2fname(\@modparts) : $modparts[-1];