From 559d4f4d8a2ac16eaec50c01cb4d72450e8daa78 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sat, 20 Aug 2016 15:45:24 -0700
Subject: [PATCH] Fix another broken open call

---
 admin.cgi | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/admin.cgi b/admin.cgi
index 8825579..93b9e4a 100755
--- a/admin.cgi
+++ b/admin.cgi
@@ -85,8 +85,8 @@ close($TEMP);
 my $cmd = &command_as_user($cgiuser, 0, "$mailman_dir/cgi-bin/$prog");
 my $textarea = 0;
 my ($headers, $body);
-open(my $CGI, "<", "$cmd <$temp |");
-while(<CGI>) {
+open(my $CGI, "$cmd <$temp |");
+while(<$CGI>) {
 	# Check if we are in a textarea
 	if (/<textarea/i) { $textarea = 1; }
 	if (/<\/textarea/i) { $textarea = 0; }
@@ -117,7 +117,7 @@ while(<CGI>) {
 		$body .= $_;
 		}
 	}
-close(CGI);
+close($CGI);
 
 print $headers;
 my $title;