From cff52ce0da0e07496cd3c5a4cbbd975857bee5a6 Mon Sep 17 00:00:00 2001
From: jlmartinez <>
Date: Wed, 9 Jul 2008 10:30:15 +0000
Subject: [PATCH] Solves #48 Lists cannot be placed in a directory with "at" in
 the path

Ezmlm.pm
 - applied patch to Ezmlm.pm to permit @ in path
 - bumped up version

META.yml
 - bumped up version

Changes
 - documented change
---
 Ezmlm/trunk/Changes  | 2 ++
 Ezmlm/trunk/Ezmlm.pm | 4 ++--
 Ezmlm/trunk/META.yml | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

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: