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;
my $histfile = $ENV{'HOME'}.'/.pepper_history';
$term->ReadHistory($histfile);
$term->ReadHistory($histfile) if ('Term::ReadLine::Gnu' eq $term->ReadLine);
note('Welcome to pepper!');
......@@ -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);
$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