do not add an aditional =cut if the COPYRIGHT section came from the source (as opposed to being generated), as it will already have a =cut --- a/GenPod.pm +++ b/GenPod.pm @@ -356,10 +356,9 @@ # use normal copyright system $ret = get_copyright (); print "\n=head1 COPYRIGHT\n\n$ret" if ($ret); + print "\n=cut\n\n"; } - print "\n=cut\n\n"; - close POD; }