diff options
Diffstat (limited to 'lib/IPC/Open2.pm')
| -rw-r--r-- | lib/IPC/Open2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/IPC/Open2.pm b/lib/IPC/Open2.pm index 1ac963ab6b..243412ef09 100644 --- a/lib/IPC/Open2.pm +++ b/lib/IPC/Open2.pm @@ -96,8 +96,8 @@ sub open2 { open(STDIN, "<&$kid_rdr"); open(STDOUT, ">&$kid_wtr"); warn "execing @cmd\n" if $debug; - exec @cmd; - croak "open2: exec of @cmd failed"; + exec @cmd + or croak "open2: exec of @cmd failed"; } close $kid_rdr; close $kid_wtr; select((select($dad_wtr), $| = 1)[0]); # unbuffer pipe |