Changeset 3690 for lang/perl/Archer

Timestamp:

12/28/07 11:23:31 (5 years ago)

Author:

tokuhirom

Message:

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

Files:

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

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

@@ -22 +22 @@
     $term->stifle_history($HISTSIZE);
     if (-f $HISTFILE) {
-        $term->ReadHistory($HISTFILE) or $self->log('warn' => "cannot read history file: $!");
+        $term->ReadHistory($HISTFILE) or $self->{context}->log('warn' => "cannot read history file: $!");
     }
 
@@ -32 +32 @@
     print "\n";
 
-    $term->WriteHistory($HISTFILE) or $self->log('warn' => "perlsh: cannot write history file: $!");
+    $term->WriteHistory($HISTFILE) or $self->{context}->log('warn' => "perlsh: cannot write history file: $!");
 }