stop using extra_argv directly, pass command to run to the run method

1 files changed, 4 insertions, 6 deletions

diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm
index bc0ff94..e0e2ec9 100644
--- a/lib/App/Termcast.pm
+++ b/lib/App/Termcast.pm
@@ -101,12 +101,7 @@ has pty => (
 );
 
 sub _build_pty {
-    my $self = shift;
-    my @argv = @{ $self->extra_argv };
-    push @argv, ($ENV{SHELL} || '/bin/sh') if !@argv;
-    my $pty = IO::Pty::Easy->new(raw => 0);
-    $pty->spawn(@argv);
-    return $pty;
+    IO::Pty::Easy->new(raw => 0);
 }
 
 sub _build_select_args {
@@ -168,10 +163,13 @@ sub write_to_termcast {
 
 sub run {
     my $self = shift;
+    my @cmd = @_;
 
     ReadMode 5;
     my $guard = Scope::Guard->new(sub { ReadMode 0 });
 
+    $self->pty->spawn(@cmd) || die "Couldn't spawn @cmd: $!";
+
     local $SIG{WINCH} = sub { $self->_got_winch(1) };
     while (1) {
         my ($rin, $win, $ein) = $self->_build_select_args;