diff --git a/Ezmlm/trunk/Changes b/Ezmlm/trunk/Changes index 5f0653a..acac58f 100644 --- a/Ezmlm/trunk/Changes +++ b/Ezmlm/trunk/Changes @@ -50,3 +50,5 @@ Revision history for Perl extension Mail::Ezmlm. 0.07.2 Tue Jun 20 01:05:56 UTC 2006 - fixed 'get_charset' and 'set_charset' for idx < 5.0 +0.08 + - admit "@" in the path of a mailing list \ No newline at end of file diff --git a/Ezmlm/trunk/Ezmlm.pm b/Ezmlm/trunk/Ezmlm.pm index 7ec992f..78039d3 100644 --- a/Ezmlm/trunk/Ezmlm.pm +++ b/Ezmlm/trunk/Ezmlm.pm @@ -52,7 +52,7 @@ require Exporter; @EXPORT = qw( ); -$VERSION = '0.07'; +$VERSION = '0.08'; require 5.005; @@ -242,7 +242,7 @@ sub thislist { # == Set the current mailing list == sub setlist { my($self, $list) = @_; - if ($list =~ m/^([\w\d\_\-\.\/]+)$/) { + if ($list =~ m/^([\w\d\_\-\.\/\@]+)$/) { $list = $1; if (-e "$list/lock") { $self->_seterror(undef); diff --git a/Ezmlm/trunk/META.yml b/Ezmlm/trunk/META.yml index 54e8589..5fa8fbb 100644 --- a/Ezmlm/trunk/META.yml +++ b/Ezmlm/trunk/META.yml @@ -1,7 +1,7 @@ # http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: Ezmlm -version: 0.07.1 +version: 0.08 version_from: Ezmlm.pm installdirs: site requires: