#
# clean_data: global clean-up of pod data
#
sub clean_data($) {
    my ($dataref) = @_;
    my $i;
    for ( $i = 0 ; $i <= $#$dataref ; $i++ ) {
        ${$dataref}[$i] =~ s/\s+\Z//;

        # have a look for all-space lines
        if ( ${$dataref}[$i] =~ /^\s+$/m and ${$dataref}[$i] !~ /^\s/ ) {
            my @chunks = split ( /^\s+$/m, ${$dataref}[$i] );
            splice( @$dataref, $i, 1, @chunks );
        }
    }
}

##</code><code>##

#
# clean_data: global clean-up of pod data
#
sub clean_data($) {
    my ($dataref) = @_;
    my $i;
    for ( $i = 0 ; $i <= $#$dataref ; $i++ ) {
#-------------------------------------------------------------------
        if(${$dataref}[$i] =~ s/([^\x0a])\x0a=/$1\x00=/g) {
            my @otherchunks = split ( /\x00/m,${$dataref}[$i]);
            splice( @$dataref, $i, 1, @otherchunks );
            redo;
        }
#-------------------------------------------------------------------
        ${$dataref}[$i] =~ s/\s+\Z//;

        # have a look for all-space lines
        if ( ${$dataref}[$i] =~ /^\s+$/m and ${$dataref}[$i] !~ /^\s/ ) {
            my @chunks = split ( /^\s+$/m, ${$dataref}[$i] );
            splice( @$dataref, $i, 1, @chunks );
        }
    }
}