Unverified Commit 490a6bf7 authored by Gavin Brown's avatar Gavin Brown
Browse files

avoid calling ReadHistory if our term isn't a Term::ReadLine::Gnu

parent aac1eb44
...@@ -152,7 +152,7 @@ my $out = $term->OUT || \*STDOUT; ...@@ -152,7 +152,7 @@ my $out = $term->OUT || \*STDOUT;
my $histfile = $ENV{'HOME'}.'/.pepper_history'; my $histfile = $ENV{'HOME'}.'/.pepper_history';
$term->ReadHistory($histfile); $term->ReadHistory($histfile) if ('Term::ReadLine::Gnu' eq $term->ReadLine);
note('Welcome to pepper!'); note('Welcome to pepper!');
...@@ -219,7 +219,7 @@ while (1) { ...@@ -219,7 +219,7 @@ while (1) {
} }
} }
$term->WriteHistory($histfile); $term->WriteHistory($histfile) if ('Term::ReadLine::Gnu' eq $term->ReadLine);
handle_logout() if ($epp->connected && $epp->authenticated); handle_logout() if ($epp->connected && $epp->authenticated);
$epp->disconnect if ($epp->connected); $epp->disconnect if ($epp->connected);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment