You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2011/09/17 00:14:08 UTC
[lucy-commits] svn commit: r1171826 - in /incubator/lucy/branches/0.2: ./
clownfish/lib/Clownfish/Binding/Perl/Class.pm
Author: marvin
Date: Fri Sep 16 22:14:08 2011
New Revision: 1171826
URL: http://svn.apache.org/viewvc?rev=1171826&view=rev
Log:
LUCY-181 - Don't link to POD documents that don't exist.
The INHERITANCE sections in the POD autogenerated by Clownfish's Perl bindings
should mention, but not link to, parent classes which are not exposed.
Modified:
incubator/lucy/branches/0.2/ (props changed)
incubator/lucy/branches/0.2/clownfish/lib/Clownfish/Binding/Perl/Class.pm
Propchange: incubator/lucy/branches/0.2/
------------------------------------------------------------------------------
--- svn:mergeinfo (original)
+++ svn:mergeinfo Fri Sep 16 22:14:08 2011
@@ -1 +1 @@
-/incubator/lucy/trunk:1148076,1148119,1159913,1164648
+/incubator/lucy/trunk:1148076,1148119,1159913,1164648,1171825
Modified: incubator/lucy/branches/0.2/clownfish/lib/Clownfish/Binding/Perl/Class.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/branches/0.2/clownfish/lib/Clownfish/Binding/Perl/Class.pm?rev=1171826&r1=1171825&r2=1171826&view=diff
==============================================================================
--- incubator/lucy/branches/0.2/clownfish/lib/Clownfish/Binding/Perl/Class.pm (original)
+++ incubator/lucy/branches/0.2/clownfish/lib/Clownfish/Binding/Perl/Class.pm Fri Sep 16 22:14:08 2011
@@ -335,7 +335,13 @@ sub create_pod {
$inheritance_pod = "=head1 INHERITANCE\n\n";
$inheritance_pod .= $class->get_class_name;
for my $ancestor (@ancestors) {
- $inheritance_pod .= " isa L<" . $ancestor->get_class_name . ">";
+ my $class_name = $ancestor->get_class_name;
+ if ( $registry{$class_name} ) {
+ $inheritance_pod .= " isa L<$class_name>";
+ }
+ else {
+ $inheritance_pod .= " isa $class_name";
+ }
}
$inheritance_pod .= ".\n";
}