rev 1951 - trunk/Email-Store/lib/Email/Store

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

Author: simon
Date: 2005-02-25 10:17:23 +0000 (Fri, 25 Feb 2005)
New Revision: 1951

Modified:
   trunk/Email-Store/lib/Email/Store/DBI.pm
Log:
Fix for none Pg dbs


Modified: trunk/Email-Store/lib/Email/Store/DBI.pm
===================================================================
--- trunk/Email-Store/lib/Email/Store/DBI.pm	2005-02-23 15:49:24 UTC (rev 1950)
+++ trunk/Email-Store/lib/Email/Store/DBI.pm	2005-02-25 10:17:23 UTC (rev 1951)
@@ -7,7 +7,7 @@
 sub columns {
     my $self  = shift;
 
-    if (@_ && $self->__driver eq 'Pg') {
+    if (@_ && $self->__driver && $self->__driver eq 'Pg') {
         #warn "do that sequence thing white boy";
         if ($_[0] eq 'Primary' or $_[0] eq 'All') {
             # Class::DBI::Pg does this properly, as part of its

• rev 1951 - trunk/Email-Store/lib/Email/Store simon 10:17 on 25 Feb 2005

Generated at 11:00 on 25 Feb 2005 by mariachi 0.52