diff options
Diffstat (limited to 'lib/IPC/Open3.pm')
| -rw-r--r-- | lib/IPC/Open3.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm index 5bc757c344..dbf5562028 100644 --- a/lib/IPC/Open3.pm +++ b/lib/IPC/Open3.pm @@ -102,7 +102,7 @@ sub open3 { } if (($kidpid = fork) < 0) { - croak "open2: fork failed: $!"; + croak "open3: fork failed: $!"; } elsif ($kidpid == 0) { if ($dup_wtr) { open(STDIN, "<&$dad_wtr") if (fileno(STDIN) != fileno($dad_wtr)); @@ -128,8 +128,8 @@ sub open3 { open(STDERR, ">&STDOUT") if (fileno(STDERR) != fileno(STDOUT)); } local($")=(" "); - exec @cmd; - croak "open2: exec of @cmd failed"; + exec @cmd + or croak "open3: exec of @cmd failed"; } close $kid_rdr; close $kid_wtr; close $kid_err; |