view release on metacpan or  search on metacpan

lib/CPANPLUS/Dist/Arch.pm  view on Meta::CPAN

                . qq{"$libname", ignoring.};
        }
        return ();
    }

    my ($pkgname, $pkgver) = split / /, $result;
    $pkgver =~ s/-\d+\z//; # remove the package revision number
    return ($pkgname, $pkgver);
}

sub _unique(@)
{
    my %seen;
    return map { $seen{$_}++ ? () : $_ } @_;
}

#---INSTANCE METHOD---
# Usage    : my $deps_ref = $self->_get_mm_xs_deps($dist_obj);
# Params   : $dist_obj - A CPANPLUS::Dist::MM object
# Returns  : Arrayref of library flags (-l...) passed to the linker on build.
#---------------------

script/cpan2aur  view on Meta::CPAN

use English               qw(no_match_vars);
use version               qw();
use POSIX                 qw();
use Cwd                   qw(getcwd);

our $VERSION = '1.02';

## CONSTANTS
##############################################################################

sub PKGBUILD_ERRCODE() { 2 }
sub NEEDLWP_ERRCODE()  { 3 }

# should just make these scalars, too... hrmph
sub AUR_LOGIN_URI()    { 'https://aur.archlinux.org/login/' }
sub AUR_UPLOAD_URI()   { 'https://aur.archlinux.org/submit/' }
sub COOKIE_NAME()      { 'AURSID' }
sub CAT_LIB()          { 10 };

my $TT_NAME_PREFIX = '# CPAN Name  : ';

my $BAD_LOGIN_MSG  = 'Bad username or password.';
my $NEED_LOGIN_MSG = 'You must create an account before you can upload packages.';
my $PKG_EXISTS_MSG = qr{You are not allowed to overwrite the <b>.*?</b> package.};
my $CFGPATH        = "$ENV{HOME}/.cpan2aur";

my $NEED_LOGIN_ERR = 'Login session was invalid.';
my $PKG_EXISTS_ERR = 'You tried to submit a package you do not own.';