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 |