Changeset 3673 for lang/perl/Archer

Show
Ignore:
Timestamp:
12/28/07 11:22:58 (6 years ago)
Author:
tokuhirom
Message:

r3368@mnk (orig r18): tokuhiro | 2006-10-06 03:47:36 -0700
enable the parallel


Location:
lang/perl/Archer
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Archer/archer.pl

    r3668 r3673  
    3232            project        => $proj, 
    3333            dry_run_fg     => $dry_run_fg, 
    34             fork_num       => $fork_num, 
     34            parallel_num   => $fork_num, 
    3535            skips          => $skips, 
    3636            config_yaml    => $config, 
  • lang/perl/Archer/lib/Archer.pm

    r3667 r3673  
    6464    $parallel->use or die $@; 
    6565 
     66    # construct elements 
    6667    my $server_tree = $self->{config}->{projects}->{$self->{project}}; 
    6768    my @elems; 
     
    7273    } 
    7374 
     75    $self->log(debug => "run parallel : $self->{parallel_num}"); 
    7476    my $manager = $parallel->new; 
    7577    $manager->run( 
     
    7880                my $args = shift; 
    7981                $self->run_hook( 'process', $args ); 
    80                 } 
     82                }, 
     83            num => $self->{parallel_num}, 
    8184        } 
    8285    ); 
     
    9598    my ($self, $level, $msg) = @_; 
    9699 
    97     carp "[$level] $msg"; 
     100    warn "[$level] $msg\n"; 
    98101} 
    99102