[lucy-commits] svn commit: r1241731 - /incubator/lucy/branches/0.3/clownfish/perl/lib/Clownfish/CFC/Binding/Perl/Class.pm

[marvin]

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);