From: Roderick Schertler <roderick@argon.org>
Date: Fri, 12 Jun 1998 13:24:15 +0000 (-0400)
Subject: Re: Exceptions in IPC::Open2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad973f306c11e119dc3a8448590409962bde25db;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;