spinner_start();

        spinner_start();

        $gcpan_run->{cpan}{lc($ebuild_wanted)}{portage_name}    = $gcpan_run->transformCPAN($gcpan_run->{cpan}{lc($ebuild_wanted)}{src_uri}, 'n');

        $gcpan_run->{cpan}{lc($ebuild_wanted)}{portage_name}    = $gcpan_run->transformCPAN($gcpan_run->{cpan}{lc($ebuild_wanted)}{src_uri}, 'n');

        $gcpan_run->{cpan}{lc($ebuild_wanted)}{portage_version} = $gcpan_run->transformCPAN($gcpan_run->{cpan}{lc($ebuild_wanted)}{src_uri}, 'v');

        $gcpan_run->{cpan}{lc($ebuild_wanted)}{portage_version} = $gcpan_run->transformCPAN($gcpan_run->{cpan}{lc($ebuild_wanted)}{src_uri}, 'v');

        spinner_stop();

        spinner_stop();

    }

    }

    else

    else

                            }

                            }

                        }

                        }

                        my $description = $gcpan_run->{'cpan'}{ lc($original_ebuild) }{'description'};

                        my $description = $gcpan_run->{'cpan'}{ lc($original_ebuild) }{'description'};

                        $description =~ s/"/\\"/g;

                        $description =~ s/"/\\"/g;

    $filenamever =~ s/([0-9.]+)-([0-9.]+)$/$1\.$2/;

    $filenamever =~ s/([0-9.]+)-([0-9.]+)$/$1\.$2/;

    # Remove leading v's - happens on occasion

    # Remove leading v's - happens on occasion

    # Some modules don't use the /\d\.\d\d/ convention, and portage goes

    # Some modules don't use the /\d\.\d\d/ convention, and portage goes

    # berserk if the ebuild is called ebulldname-.02.ebuild -- so we treat

    # berserk if the ebuild is called ebulldname-.02.ebuild -- so we treat

        $filenamever = 0 . $filenamever;

        $filenamever = 0 . $filenamever;

    }

    }

}

}

sub makeCPANstub {

sub makeCPANstub {