newer Getopt/Long.pm from public distribution cited in:

[p5sagit/p5-mst-13.2.git] / lib / IPC / Open3.pm

diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm
index 43caa03..7b06a21 100644 (file)
--- a/lib/IPC/Open3.pm
+++ b/lib/IPC/Open3.pm
@@ -20,7 +20,7 @@ IPC::Open3, open3 - open a process for reading, writing, and error handling
 
 =head1 SYNOPSIS
 
-    $pid = open3(\*WTRFH, \*RDRFH, \*ERRFH
+    $pid = open3(\*WTRFH, \*RDRFH, \*ERRFH,
                    'some cmd and args', 'optarg', ...);
 
 =head1 DESCRIPTION
@@ -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;