if ($rl_mode eq "terminal") {
if (defined ($line = $_rl->readline($prompt))) {
save_line($line);
+ chomp $line;
return $line;
} else {
return undef;
print "$prompt";
if (defined ($line = readline(*STDIN))) {
save_line($line);
+ chomp($line);
return $line;
} else {
return undef;