--- trunk/lib/Frey/ClassLoader.pm 2008/12/02 18:57:11 686 +++ trunk/lib/Frey/ClassLoader.pm 2008/12/02 19:01:32 687 @@ -65,8 +65,10 @@ $path = $INC{$path}; warn "# $class from INC $path"; $class_path->{$class} = $path; + } elsif ( $path =~ s{\.pm$}{} && -e "lib/${path}.pod" ) { + return "lib/${path}.pod"; } else { - confess "can't find path for $class"; + confess "can't find $class at $path"; } } return $class_path->{$class};