Sun Feb 09 02:11:11 2014: Request 92860 was acted upon.
Transaction: Ticket created by Hugmeir
Queue: Module-ScanDeps
Subject: t/7-check-dynaloader.t doesn't handle systems with mod2fname
Broken in: (no value)
Severity: (no value)
Owner: Nobody
Requestors: [email protected]
Status: new
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=92860 >
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];
