summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-02-24 19:12:09 -0600
committerJesse Luehrs <doy@tozt.net>2012-02-24 19:12:09 -0600
commit4e9da77fa218400a8a61dc2f80eca5af2fef0208 (patch)
treea507254f1ee3ef498447033ce69e7cab8876236b
parentf6f731f3a1e81f15dc5e03faa615bfd6a811c074 (diff)
downloadterm-filter-4e9da77fa218400a8a61dc2f80eca5af2fef0208.tar.gz
term-filter-4e9da77fa218400a8a61dc2f80eca5af2fef0208.zip
use croak
-rw-r--r--lib/Term/Filter.pm4
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);