From 0b7570bd829d308128a3dca3ccf1c7ee98e72e85 Mon Sep 17 00:00:00 2001
From: Florian Weimer <fw@deneb.enyo.de>
Date: Thu, 22 May 2008 15:38:05 +0200
Subject: [PATCH] Add safe_backtick_stderr sub

---
 dowkd.in | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/dowkd.in b/dowkd.in
index c150834..c0bd7bd 100644
--- a/dowkd.in
+++ b/dowkd.in
@@ -147,6 +147,25 @@ sub safe_backtick (@) {
     }
 }
 
+sub safe_backtick_stderr {
+    my @args = @_;
+    my $fh;
+    my $pid = open $fh, '-|';
+    if ($pid) {
+	my @result = <$fh>;
+	close $fh;
+	$? == 0 or return undef;
+	if (wantarray) {
+	    return @result;
+	} else {
+	    return join('', @result);
+	}
+    } else {
+	open STDERR, '>&STDOUT' or die "error: could not redirect stderr: $!";
+	exec @args or die "exec: failed: $!";
+    }
+}
+
 my $keys_found = 0;
 my $keys_vulnerable = 0;
 
-- 
2.11.4.GIT