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
This commit is contained in:
parent
77eeb1fcd0
commit
cff52ce0da
3 changed files with 5 additions and 3 deletions
|
@ -50,3 +50,5 @@ Revision history for Perl extension Mail::Ezmlm.
|
||||||
0.07.2 Tue Jun 20 01:05:56 UTC 2006
|
0.07.2 Tue Jun 20 01:05:56 UTC 2006
|
||||||
- fixed 'get_charset' and 'set_charset' for idx < 5.0
|
- fixed 'get_charset' and 'set_charset' for idx < 5.0
|
||||||
|
|
||||||
|
0.08
|
||||||
|
- admit "@" in the path of a mailing list
|
|
@ -52,7 +52,7 @@ require Exporter;
|
||||||
@EXPORT = qw(
|
@EXPORT = qw(
|
||||||
|
|
||||||
);
|
);
|
||||||
$VERSION = '0.07';
|
$VERSION = '0.08';
|
||||||
|
|
||||||
require 5.005;
|
require 5.005;
|
||||||
|
|
||||||
|
@ -242,7 +242,7 @@ sub thislist {
|
||||||
# == Set the current mailing list ==
|
# == Set the current mailing list ==
|
||||||
sub setlist {
|
sub setlist {
|
||||||
my($self, $list) = @_;
|
my($self, $list) = @_;
|
||||||
if ($list =~ m/^([\w\d\_\-\.\/]+)$/) {
|
if ($list =~ m/^([\w\d\_\-\.\/\@]+)$/) {
|
||||||
$list = $1;
|
$list = $1;
|
||||||
if (-e "$list/lock") {
|
if (-e "$list/lock") {
|
||||||
$self->_seterror(undef);
|
$self->_seterror(undef);
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
# http://module-build.sourceforge.net/META-spec.html
|
# http://module-build.sourceforge.net/META-spec.html
|
||||||
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
|
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
|
||||||
name: Ezmlm
|
name: Ezmlm
|
||||||
version: 0.07.1
|
version: 0.08
|
||||||
version_from: Ezmlm.pm
|
version_from: Ezmlm.pm
|
||||||
installdirs: site
|
installdirs: site
|
||||||
requires:
|
requires:
|
||||||
|
|
Loading…
Reference in a new issue