projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fe182b6
)
Re: Exceptions in IPC::Open2
author
Roderick Schertler
<roderick@argon.org>
Fri, 12 Jun 1998 13:24:15 +0000
(09:24 -0400)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Sun, 14 Jun 1998 19:33:36 +0000
(19:33 +0000)
Message-ID: <pz3edaedog.fsf@eeyore.ibcinc.com>
p4raw-id: //depot/perl@1131
lib/IPC/Open3.pm
patch
|
blob
|
history
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;