view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

        'SOAP::Lite'                   => 0,
        'SVN::Core'                    => 0,
        'SVN::Fs'                      => 0,
        'SVN::Repos'                   => 0,
        'Schedule::RateLimiter'        => 0,
        'Text::Glob'                   => 0,
        'Time::Piece'                  => 0,
        'WWW::Shorten'                 => 0,
        'YAML'                         => 0,
    },
    bindoc_dirs  => [qw(script sbin)],
    install_path => {
        sbin => '/usr/sbin',
        etc  => 'etc'
    },
    sbin_files => {
        'script/kgb-bot'          => 'sbin/kgb-bot',
        'script/kgb-add-project'  => 'sbin/kgb-add-project',
        'script/kgb-split-config' => 'sbin/kgb-split-config',
    },
    etc_files => { 'etc/kgb.conf' => 'etc/kgb-bot/kgb.conf' },

t/TestBot.pm  view on Meta::CPAN

    #local $SIG{__WARN__} = \&Carp::cluck;
    #local $SIG{__DIE__} = \&Carp::confess;

    my $addr = INADDR_LOOPBACK;
    my $port = 5392;
    my $tries = 1;

    while(1) {
        warn "# trying port $port\n";
        warn("# port $port is available\n"), last
            if eval { bind( $srv, pack_sockaddr_in( $port, $addr ) ) };

        warn "# port $port is busy\n";

        $port++;
        $tries++;
        die "Unable to find free port" if $tries > 1000;
    }

    close($srv);