--- Ezmlm-0.08.2/Ezmlm.pm.dirsubdir 2016-04-19 02:54:10.000000000 -0400 +++ Ezmlm-0.08.2/Ezmlm.pm 2016-04-19 10:12:50.000000000 -0400 @@ -276,7 +276,7 @@ ($self->_seterror(-1, 'must setlist() before returning subscribers()') && return undef) unless(defined($self->{'LIST_NAME'})); if(defined($part) && $part) { ($self->_seterror(-1, "$part part of $self->{'LIST_NAME'} does not appear to exist in subscribers()") && return undef) unless(-e "$self->{'LIST_NAME'}/$part"); - @subscribers = map { s/[\r\n]// && $_ } sort `$EZMLM_BASE/ezmlm-list $self->{'LIST_NAME'}/$part`; + @subscribers = map { s/[\r\n]// && $_ } sort `$EZMLM_BASE/ezmlm-list $self->{'LIST_NAME'} $part`; } else { @subscribers = map { s/[\r\n]// && $_ } sort `$EZMLM_BASE/ezmlm-list $self->{'LIST_NAME'}`; } @@ -302,7 +302,7 @@ ($self->_seterror(-1, "$part of $self->{'LIST_NAME'} does not appear to exist in sub()") && return 0) unless(-e "$self->{'LIST_NAME'}/$part"); foreach $address (@addresses) { next unless $self->_checkaddress($address); - system("$EZMLM_BASE/ezmlm-sub", "$self->{'LIST_NAME'}/$part", $address) == 0 || + system("$EZMLM_BASE/ezmlm-sub", "$self->{'LIST_NAME'}", $part, $address) == 0 || ($self->_seterror($?) && return undef); } } else { @@ -328,7 +328,7 @@ ($self->_seterror(-1, "$part of $self->{'LIST_NAME'} does not appear to exist in unsub()") && return 0) unless(-e "$self->{'LIST_NAME'}/$part"); foreach $address (@addresses) { next unless $self->_checkaddress($address); - system("$EZMLM_BASE/ezmlm-unsub", "$self->{'LIST_NAME'}/$part", $address) == 0 || + system("$EZMLM_BASE/ezmlm-unsub", "$self->{'LIST_NAME'}", $part, $address) == 0 || ($self->_seterror($?) && return undef); } } else { @@ -355,7 +355,7 @@ ($self->_seterror(-1, "$part of $self->{'LIST_NAME'} does not appear to exist in issub()") && return 0) unless(-e "$self->{'LIST_NAME'}/$part"); foreach $address (@addresses) { $ENV{'SENDER'} = $address; - undef($issub) if ((system("$EZMLM_BASE/ezmlm-issubn", "$self->{'LIST_NAME'}/$part") / 256) != 0) + undef($issub) if ((system("$EZMLM_BASE/ezmlm-issubn", "$self->{'LIST_NAME'}", $part) / 256) != 0) } } else { foreach $address (@addresses) {