[Bast-commits] r4677 -
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB
nothingmuch at dev.catalyst.perl.org
nothingmuch at dev.catalyst.perl.org
Wed Jul 30 04:54:19 BST 2008
Author: nothingmuch
Date: 2008-07-30 04:54:19 +0100 (Wed, 30 Jul 2008)
New Revision: 4677
Modified:
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeLog.pm
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
Log:
roll back accidental case change
Modified: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeLog.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeLog.pm 2008-07-30 03:52:22 UTC (rev 4676)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeLog.pm 2008-07-30 03:54:19 UTC (rev 4677)
@@ -7,7 +7,7 @@
__PACKAGE__->table('change_log');
__PACKAGE__->add_columns(
- id => {
+ ID => {
data_type => 'integer',
is_auto_increment => 1,
is_primary_key => 1,
@@ -25,7 +25,7 @@
);
-__PACKAGE__->set_primary_key('id');
+__PACKAGE__->set_primary_key('ID');
__PACKAGE__->add_unique_constraint('setorder', [ qw/changeset_id order_in/ ]);
__PACKAGE__->belongs_to('changeset', 'DBIx::Class::Schema::Journal::DB::ChangeSet', 'changeset_id');
Modified: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm 2008-07-30 03:52:22 UTC (rev 4676)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm 2008-07-30 03:54:19 UTC (rev 4677)
@@ -6,7 +6,7 @@
__PACKAGE__->table('changeset');
__PACKAGE__->add_columns(
- id => {
+ ID => {
data_type => 'integer',
is_auto_increment => 1,
is_primary_key => 1,
@@ -34,6 +34,6 @@
return $self;
}
-__PACKAGE__->set_primary_key('id');
+__PACKAGE__->set_primary_key('ID');
1;
More information about the Bast-commits
mailing list