[guest - Tue May 14 18:35:39 2002]:
Show quoted text> # == Test whether people are subscribed to the list ==
> sub issub {
> my($self, @addresses, $part) = @_;
>
> See pp 49 of Programming Perl, second paragraph. The variable $part
> will always be undef.
--- Ezmlm-0.03/Ezmlm.pm Mon Sep 25 11:29:08 2000
+++ Ezmlm-0.04/Ezmlm.pm Tue May 14 17:22:20 2002
@@ -51,7 +51,7 @@
@EXPORT = qw(
);
-$VERSION = '0.03';
+$VERSION = '0.04';
require 5.002;
@@ -308,7 +308,14 @@
# == Test whether people are subscribed to the list ==
sub issub {
- my($self, @addresses, $part) = @_;
+ my($self, @addresses) = @_;
+ my $part;
+ my $protopart = $addresses[$#addresses]; # last one
+ if (grep /^$protopart$/,qw(mod digest allow deny)) {
+ # not really an address
+ $part = $protopart;
+ pop @addresses;
+ }
my($address, $issub); $issub = 1;
(_seterror(-1, 'must setlist() before issub()') && return 0) unless(defined($LIST_NAME));
