[plug] Perl Question.

[Jason Nicholls]

how about...

print join('', @doc_comment);

or going along your original idea:

> 	format_docpp_comment( \@doc_comment ); 

sub format_docpp_comment
{
    my $doc_comment_ref = shift;
    my $single_comment_line;

    foreach my $comment_line ( @$doc_comment_ref )
    {
        chomp( $comment_line );
        $single_comment_line .= $comment_line;
    }

    print $single_comment_line;
    return $single_comment_line;
}



Later,

Jason Nicholls
--------------------------------------------------------------------
Jason Nicholls    icq: 11745841    email: <jason at mindsocket.com.au>
http://jason.mindsocket.com.au/    mobile: 0417 410 811
--------------------------------------------------------------------
   pgp/gpg id: 0xC3844959  
  fingerprint: 7F7A 5846 4E94 459C 104D  A979 7079 24CF C384 4959