diff options
| author | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
| commit | 10b07148ba8efec543ded60a4b7916960709ce1e (patch) | |
| tree | 43c10dbc3c6bd2035c34cabf5aca3aa08e37a2f6 /perl/readline.pm | |
| parent | 64574360c510d644f5b8c175dbe3114f1f2d7b68 (diff) | |
| download | mal-10b07148ba8efec543ded60a4b7916960709ce1e.tar.gz mal-10b07148ba8efec543ded60a4b7916960709ce1e.zip | |
All step0: add test, fix bugs, remove step0 eval.
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; |