rev 1805 - in trunk/Email-Store/lib/Email: . Store

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

Author: richardc
Date: 2005-02-03 15:29:36 +0000 (Thu, 03 Feb 2005)
New Revision: 1805

Modified:
   trunk/Email-Store/lib/Email/Store.pm
   trunk/Email-Store/lib/Email/Store/Mail.pm
Log:
don't use Module::Pluggable in one place, and then ::Ordered in the sub-plugin, you get 'interesting' ordering problems which results in mispopulation of %Email::Store::only

Modified: trunk/Email-Store/lib/Email/Store/Mail.pm
===================================================================
--- trunk/Email-Store/lib/Email/Store/Mail.pm	2005-02-03 15:13:24 UTC (rev 1804)
+++ trunk/Email-Store/lib/Email/Store/Mail.pm	2005-02-03 15:29:36 UTC (rev 1805)
@@ -4,12 +4,13 @@
 use base 'Email::Store::DBI';
 
 require Email::Store;
+*call_plugins = \&Email::Store::call_plugins;
+*plugins = \&Email::Store::plugins;
 
 Email::Store::Mail->table("mail");
 Email::Store::Mail->columns(All => qw/message_id message/);
 Email::Store::Mail->columns(Primary => qw/message_id/);
 Email::Store::Mail->columns(TEMP => qw/simple/);
-use Module::Pluggable::Ordered search_path => ["Email::Store"], only => [ keys %Email::Store::only ];
 use Email::Simple;
 use Email::MessageID;
 

Modified: trunk/Email-Store/lib/Email/Store.pm
===================================================================
--- trunk/Email-Store/lib/Email/Store.pm	2005-02-03 15:13:24 UTC (rev 1804)
+++ trunk/Email-Store/lib/Email/Store.pm	2005-02-03 15:29:36 UTC (rev 1805)
@@ -22,8 +22,8 @@
             }
     } 
 
-    require Module::Pluggable;
-    Module::Pluggable->import(%args);
+    require Module::Pluggable::Ordered;
+    Module::Pluggable::Ordered->import(%args);
 
     Email::Store::DBI->import(@_);
 

• rev 1805 - in trunk/Email-Store/lib/Email: . Store richardc 15:29 on 03 Feb 2005

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