Changeset 3704 for lang/perl/Archer/lib/Archer/Shell.pm

Timestamp:

12/28/07 11:23:45 (13 months ago)

Author:

tokuhirom

Message:

r3657@mnk (orig r307): tokuhiro | 2007-03-05 21:15:45 -0800
initalize parallel manager should be only once.

Files:

• lang/perl/Archer/lib/Archer/Shell.pm (modified) (2 diffs)

lang/perl/Archer/lib/Archer/Shell.pm

@@ -17 +17 @@
     my ( $self, ) = @_;
 
+    # initialize parallel manager.
+    $self->{parallel} = $self->{context}->{config}->{global}->{parallel}
+        || 'Archer::Parallel::ForkManager';
+    $self->{parallel}->use or die $@;
+
+    # initialize readline library.
     my $term = Term::ReadLine->new('Archer');
 
@@ -55 +61 @@
 sub catch_run {
     my ( $self, $cmd ) = @_;
-
-    $self->{parallel} = $self->{context}->{config}->{global}->{parallel}
-        || 'Archer::Parallel::ForkManager';
-    $self->{parallel}->use or die $@;
 
     if ( $cmd =~ /^on/ ) {