perl-Ezmlm/contribs8/perl-Ezmlm-0.08-2-dirsubdir.patch

---  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) {
1	--- Ezmlm-0.08.2/Ezmlm.pm.dirsubdir 2016-04-19 02:54:10.000000000 -0400
2	+++ Ezmlm-0.08.2/Ezmlm.pm 2016-04-19 10:12:50.000000000 -0400
3	@@ -276,7 +276,7 @@
4	($self->_seterror(-1, 'must setlist() before returning subscribers()') && return undef) unless(defined($self->{'LIST_NAME'}));
5	if(defined($part) && $part) {
6	($self->_seterror(-1, "$part part of $self->{'LIST_NAME'} does not appear to exist in subscribers()") && return undef) unless(-e "$self->{'LIST_NAME'}/$part");
7	- @subscribers = map { s/[\r\n]// && $_ } sort `$EZMLM_BASE/ezmlm-list $self->{'LIST_NAME'}/$part`;
8	+ @subscribers = map { s/[\r\n]// && $_ } sort `$EZMLM_BASE/ezmlm-list $self->{'LIST_NAME'} $part`;
9	} else {
10	@subscribers = map { s/[\r\n]// && $_ } sort `$EZMLM_BASE/ezmlm-list $self->{'LIST_NAME'}`;
11	}
12	@@ -302,7 +302,7 @@
13	($self->_seterror(-1, "$part of $self->{'LIST_NAME'} does not appear to exist in sub()") && return 0) unless(-e "$self->{'LIST_NAME'}/$part");
14	foreach $address (@addresses) {
15	next unless $self->_checkaddress($address);
16	- system("$EZMLM_BASE/ezmlm-sub", "$self->{'LIST_NAME'}/$part", $address) == 0 \|\|
17	+ system("$EZMLM_BASE/ezmlm-sub", "$self->{'LIST_NAME'}", $part, $address) == 0 \|\|
18	($self->_seterror($?) && return undef);
19	}
20	} else {
21	@@ -328,7 +328,7 @@
22	($self->_seterror(-1, "$part of $self->{'LIST_NAME'} does not appear to exist in unsub()") && return 0) unless(-e "$self->{'LIST_NAME'}/$part");
23	foreach $address (@addresses) {
24	next unless $self->_checkaddress($address);
25	- system("$EZMLM_BASE/ezmlm-unsub", "$self->{'LIST_NAME'}/$part", $address) == 0 \|\|
26	+ system("$EZMLM_BASE/ezmlm-unsub", "$self->{'LIST_NAME'}", $part, $address) == 0 \|\|
27	($self->_seterror($?) && return undef);
28	}
29	} else {
30	@@ -355,7 +355,7 @@
31	($self->_seterror(-1, "$part of $self->{'LIST_NAME'} does not appear to exist in issub()") && return 0) unless(-e "$self->{'LIST_NAME'}/$part");
32	foreach $address (@addresses) {
33	$ENV{'SENDER'} = $address;
34	- undef($issub) if ((system("$EZMLM_BASE/ezmlm-issubn", "$self->{'LIST_NAME'}/$part") / 256) != 0)
35	+ undef($issub) if ((system("$EZMLM_BASE/ezmlm-issubn", "$self->{'LIST_NAME'}", $part) / 256) != 0)
36	}
37	} else {
38	foreach $address (@addresses) {