Author: dagolden
Date: Wed Dec 16 21:37:49 2009
New Revision: 13665
Modified:
Module-Build/trunk/lib/Module/Build/Base.pm
Log:
Let module_name heuristics use pure unix paths
Ironically, this might be more portable for VMS
Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Wed Dec 16 21:37:49 2009
@@ -1094,7 +1094,7 @@
$mod_name =~ s{-}{::}g;
$mod_path =~ s{-}{/}g;
$mod_path .= ".pm";
- if ( -e $mod_path || -e File::Spec->catfile('lib', $mod_path) ) {
+ if ( -e $mod_path || -e "lib/$mod_path" ) {
$p->{module_name} = $mod_name;
}
else {
