diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-02-24 19:12:09 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-02-24 19:12:09 -0600 |
commit | 4e9da77fa218400a8a61dc2f80eca5af2fef0208 (patch) | |
tree | a507254f1ee3ef498447033ce69e7cab8876236b | |
parent | f6f731f3a1e81f15dc5e03faa615bfd6a811c074 (diff) | |
download | term-filter-4e9da77fa218400a8a61dc2f80eca5af2fef0208.tar.gz term-filter-4e9da77fa218400a8a61dc2f80eca5af2fef0208.zip |
use croak
-rw-r--r-- | lib/Term/Filter.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Term/Filter.pm b/lib/Term/Filter.pm index c20a569..e2f38f5 100644 --- a/lib/Term/Filter.pm +++ b/lib/Term/Filter.pm @@ -153,7 +153,7 @@ sub _setup { my $self = shift; my (@cmd) = @_; - $self->pty->spawn(@cmd) || die "Couldn't spawn @cmd: $!"; + $self->pty->spawn(@cmd) || Carp::croak("Couldn't spawn @cmd: $!"); $self->_raw_mode(1); @@ -198,7 +198,7 @@ sub retry_select { return $self->retry_select(@_); } elsif ($res == -1) { - die "select failed: $!"; + Carp::croak("select failed: $!"); } return ($out, $eout); |