Parent Directory | Revision Log | Patch
revision 686 by dpavlin, Tue Dec 2 18:57:11 2008 UTC | revision 687 by dpavlin, Tue Dec 2 19:01:32 2008 UTC | |
---|---|---|
# | Line 65 sub class_path { | Line 65 sub class_path { |
65 | $path = $INC{$path}; | $path = $INC{$path}; |
66 | warn "# $class from INC $path"; | warn "# $class from INC $path"; |
67 | $class_path->{$class} = $path; | $class_path->{$class} = $path; |
68 | } elsif ( $path =~ s{\.pm$}{} && -e "lib/${path}.pod" ) { | |
69 | return "lib/${path}.pod"; | |
70 | } else { | } else { |
71 | confess "can't find path for $class"; | confess "can't find $class at $path"; |
72 | } | } |
73 | } | } |
74 | return $class_path->{$class}; | return $class_path->{$class}; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |