[svn:Module-Build] r8474 - in Module-Build/trunk: . t

[kwilliams]

Author: kwilliams
Date: Tue Dec 26 21:21:04 2006
New Revision: 8474

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/t/ppm.t

Log:
Use DynaLoader::mod2fname() when available

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Tue Dec 26 21:21:04 2006
@@ -1,5 +1,9 @@
 Revision history for Perl extension Module::Build.
 
+ - In t/ppm.t, use DynaLoader::mod2fname() (if available) to determine
+   the correct translation of our test module's name into a DLL
+   name. [Ilya Zakharevich]
+
  - Avoid an unlink() error on OS/2 when fixing shebang lines. [Ilya
    Zakharevich]
 

Modified: Module-Build/trunk/t/ppm.t
==============================================================================
--- Module-Build/trunk/t/ppm.t  (original)
+++ Module-Build/trunk/t/ppm.t  Tue Dec 26 21:21:04 2006
@@ -123,7 +123,9 @@
 
 my $files = { map { $_ => 1 } $tar->list_files };
 
-exists_ok($files, 'blib/arch/auto/Simple/Simple.' . $mb->config('dlext'));
+my $fname = 'Simple';
+$fname = DynaLoader::mod2fname [$fname] if defined &DynaLoader::mod2fname;
+exists_ok($files, "blib/arch/auto/Simple/$fname." . $mb->config('dlext'));
 exists_ok($files, 'blib/lib/Simple.pm');
 exists_ok($files, 'blib/script/hello');