diff options
Diffstat (limited to 'perl/readline.pm')
| -rw-r--r-- | perl/readline.pm | 2 |
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; |
