rev 1801 - trunk/Email-Store/lib/Email/Store

[prev] [thread] [next] [lurker] [Date index for 2005/02/03]

Author: richardc
Date: 2005-02-03 15:04:02 +0000 (Thu, 03 Feb 2005)
New Revision: 1801

Modified:
   trunk/Email-Store/lib/Email/Store/List.pm
Log:
rather than leaving a comment about how we'd like to use 0.31, force that it uses 0.31

Modified: trunk/Email-Store/lib/Email/Store/List.pm
===================================================================
--- trunk/Email-Store/lib/Email/Store/List.pm	2005-02-03 15:01:27 UTC (rev 1800)
+++ trunk/Email-Store/lib/Email/Store/List.pm	2005-02-03 15:04:02 UTC (rev 1801)
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use base 'Email::Store::DBI';
-use Mail::ListDetector;
+use Mail::ListDetector 0.31;
 Email::Store::List->table("list");
 Email::Store::List->columns(All => qw/id name posting_address/);
 Email::Store::List->columns(Primary => qw/id/);
@@ -11,9 +11,7 @@
 
 sub _detect {
     my ($self, $simple) = @_;
-    my $list = eval { Mail::ListDetector->new( $simple ) } or return;
-    # eval shouldn't be necessary, but there's a slight bug in LD 0.3,
-    # and 0.31 isn't out yet.
+    my $list = Mail::ListDetector->new( $simple ) or return;
     Email::Store::List->find_or_create({
         name => $list->listname,
         posting_address => $list->posting_address

• rev 1801 - trunk/Email-Store/lib/Email/Store richardc 15:04 on 03 Feb 2005

Generated at 16:00 on 03 Feb 2005 by mariachi 0.52