File perl-ipc-open3.diff of Package perl.openSUSE_12.1_Update

--- ./ext/IPC-Open3/lib/IPC/Open3.pm.orig	2013-03-08 14:44:04.000000000 +0000
+++ ./ext/IPC-Open3/lib/IPC/Open3.pm	2013-03-08 14:47:03.000000000 +0000
@@ -284,11 +284,14 @@ sub _open3 {
 		} else {
 		    xopen \*STDERR, ">&STDOUT" if fileno(STDERR) != fileno(STDOUT);
 		}
-		return 0 if ($cmd[0] eq '-');
+		return 1 if ($cmd[0] eq '-');
 		exec @cmd or do {
 		    local($")=(" ");
 		    croak "$Me: exec of @cmd failed";
 		};
+	    } and do {
+                close $stat_w;
+		return 0;
 	    };
 
 	    my $bang = 0+$!;