diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-04-18 17:20:06 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-04-18 17:20:06 -0500 |
commit | c2340699c7caea722dd43210cd8bca5fcea22a00 (patch) | |
tree | 53e77c717d1a5b94ad8cb1369f60e8ea88057f96 /bin | |
parent | 0f592e5cc31a442e282c29352082b0478c8878ab (diff) | |
download | app-termcast-c2340699c7caea722dd43210cd8bca5fcea22a00.tar.gz app-termcast-c2340699c7caea722dd43210cd8bca5fcea22a00.zip |
stop using extra_argv directly, pass command to run to the run method
Diffstat (limited to 'bin')
-rw-r--r-- | bin/termcast | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/bin/termcast b/bin/termcast index 0dd2e0b..b97c2dd 100644 --- a/bin/termcast +++ b/bin/termcast @@ -17,7 +17,10 @@ See L<App::Termcast> for documentation. =cut -App::Termcast->new_with_options->run; +my $tc = App::Termcast->new_with_options; +my @argv = @{ $tc->extra_argv }; +push @argv, ($ENV{SHELL} || '/bin/sh') if !@argv; +App::Termcast->new_with_options->run(@argv); =head1 AUTHOR |