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 2012/02/08 02:52:45 UTC
[lucy-commits] svn commit: r1241731 -
/incubator/lucy/branches/0.3/clownfish/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm
Author: marvin
Date: Wed Feb 8 01:52:45 2012
New Revision: 1241731
URL: http://svn.apache.org/viewvc?rev=1241731&view=rev
Log:
Fix a glitch in POD generation that was causing the manual override for
Indexer#new to be ignored.
Modified:
incubator/lucy/branches/0.3/clownfish/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm
Modified: incubator/lucy/branches/0.3/clownfish/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/branches/0.3/clownfish/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm?rev=1241731&r1=1241730&r2=1241731&view=diff
==============================================================================
--- incubator/lucy/branches/0.3/clownfish/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm (original)
+++ incubator/lucy/branches/0.3/clownfish/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm Wed Feb 8 01:52:45 2012
@@ -237,6 +237,9 @@ sub create_pod {
if ( !ref $spec ) {
$constructor_pod .= _perlify_doc_text($spec);
}
+ elsif ( $spec->{pod} ) {
+ $constructor_pod .= _perlify_doc_text( $spec->{pod} );
+ }
else {
my $func_name = $spec->{func} || 'init';
my $init_func = $class->function($func_name);