diff options
| author | Roderick Schertler <roderick@argon.org> | 1998-06-12 09:24:15 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-14 19:33:36 +0000 |
| commit | ad973f306c11e119dc3a8448590409962bde25db (patch) | |
| tree | a7fe5e6fdd87a30a90b5b83f40702dd720aab095 | |
| parent | fe182b6e437522d48d03dad4b6d195ad3b3b41c0 (diff) | |
| download | perl-ad973f306c11e119dc3a8448590409962bde25db.tar.gz | |
Re: Exceptions in IPC::Open2
Message-ID: <pz3edaedog.fsf@eeyore.ibcinc.com>
p4raw-id: //depot/perl@1131
| -rw-r--r-- | lib/IPC/Open3.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |