view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.0.1_03 Fri Apr 17 23:33:58 2009
    - fix pp_entersub
    - add a number of ppcodes and tests
    - remove Carp::Always dependency

0.0.1_02 Wed Apr 15 18:11:26 2009
    - implement OPpASSIGN_COMMON

0.0.1_01 Sat Mar 28 16:40:41 2009
    - original version; created by Module::Setup

inc/Module/Install/Repository.pm  view on Meta::CPAN

        $self->repository($repo);
    } else {
        warn "Cannot determine repository URL\n";
    }
}

sub _find_repo {
    my ($execute) = @_;

    if (-e ".git") {
        # TODO support remote besides 'origin'?
        if ($execute->('git remote show -n origin') =~ /URL: (.*)$/m) {
            # XXX Make it public clone URL, but this only works with github
            my $git_url = $1;
            $git_url =~ s![\w\-]+\@([^:]+):!git://$1/!;
            return $git_url;
        } elsif ($execute->('git svn info') =~ /URL: (.*)$/m) {
            return $1;
        }
    } elsif (-e ".svn") {
        if (`svn info` =~ /URL: (.*)$/m) {
            return $1;

lib/Acme/Perl/VM/PP.pm  view on Meta::CPAN

            if($PL_op->private & OPpITER_REVERSED){
                $cx->itermax(0);
                $cx->iterix($iterary->FILL + 1);
            }
            else{
                $cx->iterix(-1);
            }
        }

        # XXX: original code does not have this adjustment.
        #      is it OK?
        $cx->oldsp($#PL_stack);
    }
    else{
        $cx->iterary(\@PL_stack);
        if($PL_op->private & OPpITER_REVERSED){
            $cx->itermax($mark + 1);
            $cx->iterix($cx->oldsp + 1);
        }
        else{