From ad973f306c11e119dc3a8448590409962bde25db Mon Sep 17 00:00:00 2001
From: Roderick Schertler <roderick@argon.org>
Date: Fri, 12 Jun 1998 09:24:15 -0400
Subject: Re: Exceptions in IPC::Open2

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

p4raw-id: //depot/perl@1131
---
 lib/IPC/Open3.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm
index f6d45cee85..7b06a21fa4 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;
-- 
cgit v1.2.1