diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-07-04 18:27:06 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-07-04 18:27:06 -0400 |
commit | d280566f9278c24228cf57090c14ee4d705348a1 (patch) | |
tree | 2594866c2eae7e8a96d573bdeb0e07b8c573ee2a /lib/Reply/App.pm | |
parent | 9a09a819c4a05a1ebe7dcfa0cfa6d1f63df9b7be (diff) | |
download | reply-d280566f9278c24228cf57090c14ee4d705348a1.tar.gz reply-d280566f9278c24228cf57090c14ee4d705348a1.zip |
simplify
Diffstat (limited to 'lib/Reply/App.pm')
-rw-r--r-- | lib/Reply/App.pm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/lib/Reply/App.pm b/lib/Reply/App.pm index 7d93238..6fe66de 100644 --- a/lib/Reply/App.pm +++ b/lib/Reply/App.pm @@ -92,15 +92,8 @@ sub run { my $reply = Reply->new(%args); $reply->step("use $_") for @modules; - for my $line (@script_lines) { - print $reply->_wrapped_plugin('prompt'), $line, "\n"; - $reply->step($line); - } - for my $file (@argv) { - my $line = 'do "' . quotemeta($file) . '"'; - print $reply->_wrapped_plugin('prompt'), $line, "\n"; - $reply->step($line); - } + $reply->step($_, 1) for @script_lines; + $reply->step('do "' . quotemeta($_) . '"', 1) for @files; $reply->run; return 0; |