[Bast-commits] r4664 - trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema

[nothingmuch at dev.catalyst.perl.org]

Author: nothingmuch
Date: 2008-07-29 18:53:11 +0100 (Tue, 29 Jul 2008)
New Revision: 4664

Modified:
   trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
Log:
work even without journal_user

Modified: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2008-07-29 17:52:24 UTC (rev 4663)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2008-07-29 17:53:11 UTC (rev 4664)
@@ -7,6 +7,7 @@
 
 __PACKAGE__->mk_classdata('journal_storage_type');
 __PACKAGE__->mk_classdata('journal_connection');
+__PACKAGE__->mk_classdata('journal_no_automatic_deploy');
 __PACKAGE__->mk_classdata('journal_sources'); ## [ source names ]
 __PACKAGE__->mk_classdata('journal_user'); ## [ class, field for user id ]
 __PACKAGE__->mk_classdata('_journal_schema'); ## schema object for journal
@@ -76,7 +77,8 @@
     }
 
 
-    $self->journal_schema_deploy();
+    $self->journal_schema_deploy()
+        unless $self->journal_no_automatic_deploy;
 
     ## Set up relationship between changeset->user_id and this schema's user
     if(!@{$self->journal_user || []})