Re: Exceptions in IPC::Open2

	Message-ID: <pz3edaedog.fsf@eeyore.ibcinc.com>

p4raw-id: //depot/perl@1131

diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm
index f6d45ce..7b06a21 100644 (file)
--- a/lib/IPC/Open3.pm
+++ b/lib/IPC/Open3.pm
@@ -186,7 +186,7 @@ sub _open3 {
        }
        local($")=(" ");
        exec @cmd
-           or croak "open3: exec of @cmd failed";
+           or croak "$Me: exec of @cmd failed";
     } elsif ($do_spawn) {
        # All the bookkeeping of coincidence between handles is
        # handled in spawn_with_handles.
@@ -227,7 +227,7 @@ sub _open3 {
                                    handle => \*STDERR },
                                ], \@close, @cmd);
        };
-       die "open3: $@" if $@;
+       die "$Me: $@" if $@;
     }
 
     xclose $kid_rdr if !$dup_wtr;