Changeset 3698 for lang/perl/Archer

Timestamp:

12/28/07 11:23:39 (11 months ago)

Author:

tokuhirom

Message:

r3645@mnk (orig r295): tokuhiro | 2007-03-01 07:20:44 -0800
work with Term::ReadLine::Perl.thanks for franck and mizzy.

http://back-paper.labs.mfac.jp/show?paper_rid=ns6J9fFl6S

Files:

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

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

@@ -20 +20 @@
     my $HISTSIZE = 256;
 
-    $term->stifle_history($HISTSIZE);
-    if (-f $HISTFILE) {
-        $term->ReadHistory($HISTFILE) or $self->{context}->log('warn' => "cannot read history file: $!");
-    }
+        # this won't work with Term::ReadLine::Perl
+        # If there is Term::ReadLine::Gnu, be sure to do : export "PERL_RL=Gnu o=0"
+        eval { $term->stifle_history($HISTSIZE);};
+        
+        if (@!){
+                $self->{context}->log('debug' => "You will need Term::ReadLine::Gnu");
+        }else{
+        if (-f $HISTFILE) {
+                $term->ReadHistory($HISTFILE) or $self->{context}->log('warn' => "cannot read history file: $!");
+        }
+        }
 
     while ( defined( my $line = $term->readline('archer> ') )) {
@@ -32 +39 @@
     print "\n";
 
-    $term->WriteHistory($HISTFILE) or $self->{context}->log('warn' => "perlsh: cannot write history file: $!");
+        eval {$term->WriteHistory($HISTFILE);};
+        if (@!){
+                $self->{context}->log('debug' => "perlsh: cannot write history file: $!");
+        }
+
 }