aboutsummaryrefslogtreecommitdiff
path: root/perl/readline.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl/readline.pm')
-rw-r--r--perl/readline.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl/readline.pm b/perl/readline.pm
index 0629f39..149c3fb 100644
--- a/perl/readline.pm
+++ b/perl/readline.pm
@@ -54,6 +54,7 @@ sub mal_readline {
if ($rl_mode eq "terminal") {
if (defined ($line = $_rl->readline($prompt))) {
save_line($line);
+ chomp $line;
return $line;
} else {
return undef;
@@ -62,6 +63,7 @@ sub mal_readline {
print "$prompt";
if (defined ($line = readline(*STDIN))) {
save_line($line);
+ chomp($line);
return $line;
} else {
return undef;