diff options
-rw-r--r-- | lib/IO/Pty/Easy.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm index a75b391..b07154f 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -119,8 +119,7 @@ sub spawn { # set up a pipe to use for keeping track of the child process during exec my ($readp, $writep); unless (pipe($readp, $writep)) { - carp "Failed to create a pipe"; - return; + croak "Failed to create a pipe"; } $writep->autoflush(1); |