Browse files

Let module_name heuristics use pure unix paths

Ironically, this might be more portable for VMS


git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@13665 50811bd7-b8ce-0310-adc1-d9db26280581
  • Loading branch information...
1 parent 51f69e0 commit bc97db80a49543ebce729e9cdb85b441ccaf5add @xdg xdg committed Dec 17, 2009
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/Module/Build/Base.pm
View
2 lib/Module/Build/Base.pm
@@ -1094,7 +1094,7 @@ sub _guess_module_name {
$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 {

0 comments on commit bc97db8

Please sign in to comment.