diff options
| -rw-r--r-- | lib/Reply/App.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lib/Reply/App.pm b/lib/Reply/App.pm index 5a1004d..7d93238 100644 --- a/lib/Reply/App.pm +++ b/lib/Reply/App.pm @@ -42,7 +42,7 @@ sub run { my $cfgfile = '.replyrc'; my $exitcode; - my (@modules, @script_lines); + my (@modules, @script_lines, @files); my $parsed = GetOptionsFromArray( \@argv, 'cfg:s' => \$cfgfile, @@ -55,6 +55,13 @@ sub run { 'help' => sub { $exitcode = 0; usage() }, ); + @files = @argv; + for my $file (@files) { + if (!stat $file) { + die "Can't read $file: $!"; + } + } + if (!$parsed) { usage(1); $exitcode = 1; @@ -89,6 +96,11 @@ sub run { 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->run; return 0; |