From 453a99647c4b7e40dd7e53b6f2ebcc89cb2b3bc7 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sat, 20 Aug 2016 15:42:56 -0700
Subject: [PATCH] Fix broken open() calls

---
 virtualmin-mailman-lib.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/virtualmin-mailman-lib.pl b/virtualmin-mailman-lib.pl
index e01ba0b..20a2efc 100755
--- a/virtualmin-mailman-lib.pl
+++ b/virtualmin-mailman-lib.pl
@@ -175,7 +175,7 @@ sub create_list
 if ($dom) {
 	# Save domain and description
 	&lock_file($lists_file);
-  my %lists;
+	my %lists;
 	&read_file($lists_file, \%lists);
 	$lists{$full_list} = $dom."\t".$desc;
 	&write_file($lists_file, \%lists);
@@ -257,13 +257,13 @@ sub delete_list
 sub list_members
 {
 my @rv;
-open(my $MEMS, "<", "$mailman_dir/bin/list_members -r $_[0]->{'list'} |");
+open(my $MEMS, "$mailman_dir/bin/list_members -r $_[0]->{'list'} |");
 while(<$MEMS>) {
 	s/\r|\n//g;
 	push(@rv, { 'email' => $_, 'digest' => 'n' });
 	}
 close($MEMS);
-open($MEMS, "<", "$mailman_dir/bin/list_members -d $_[0]->{'list'} |");
+open($MEMS, "$mailman_dir/bin/list_members -d $_[0]->{'list'} |");
 while(<$MEMS>) {
 	s/\r|\n//g;
 	push(@rv, { 'email' => $_, 'digest' => 'y' });
@@ -334,7 +334,7 @@ sub get_mailman_config
 {
 if (!scalar(@mailman_config_cache)) {
 	my $lnum = 0;
-	open(my $CONF, "<", "$mailman_config");
+	open(my $CONF, "<", $mailman_config);
 	while(<$CONF>) {
 		s/\r|\n//g;
 		s/^\s*#.*$//;