Changeset 3690 for lang/perl/Archer

Show
Ignore:
Timestamp:
12/28/07 11:23:31 (7 years ago)
Author:
tokuhirom
Message:

r3622@mnk (orig r272): tokuhiro | 2007-02-15 00:29:44 -0800
oops.


Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Archer/lib/Archer/Shell.pm

    r3689 r3690  
    2222    $term->stifle_history($HISTSIZE); 
    2323    if (-f $HISTFILE) { 
    24         $term->ReadHistory($HISTFILE) or $self->log('warn' => "cannot read history file: $!"); 
     24        $term->ReadHistory($HISTFILE) or $self->{context}->log('warn' => "cannot read history file: $!"); 
    2525    } 
    2626 
     
    3232    print "\n"; 
    3333 
    34     $term->WriteHistory($HISTFILE) or $self->log('warn' => "perlsh: cannot write history file: $!"); 
     34    $term->WriteHistory($HISTFILE) or $self->{context}->log('warn' => "perlsh: cannot write history file: $!"); 
    3535} 
    3636