Changeset 3705 for lang/perl/Archer

Show
Ignore:
Timestamp:
12/28/07 11:23:46 (11 months ago)
Author:
tokuhirom
Message:

r3658@mnk (orig r308): tokuhiro | 2007-03-05 21:18:22 -0800
I want to use onscripter!


Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r3704 r3705  
    6262    my ( $self, $cmd ) = @_; 
    6363 
    64     if ( $cmd =~ /^on/ ) { 
     64    if ( $cmd =~ /^on\s+/ ) { 
    6565        if ( $cmd =~ /^on\s(.*)\sdo\s(.*)$/ ) { 
    6666            $self->process_host( $1, $2 ); 
    … …  
    7070        } 
    7171    } 
    72     elsif ( $cmd =~ /^with/ ) { 
     72    elsif ( $cmd =~ /^with\s+/ ) { 
    7373        if ( $cmd =~ /^with\s(.*)\sdo\s(.*)$/ ) { 
    7474            $self->process_role( $1, $2 );