Fix another broken open call

virtualmin · Aug 20, 2016 · 559d4f4 · 559d4f4
1 parent 453a996
commit 559d4f4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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;