Subject: | [PATCH] Don't try to set unique/primary/nullable flags on guid field |
Date: | Fri, 31 Aug 2012 13:04:53 +0100 |
To: | bug-Metabase-Backend-SQL [...] rt.cpan.org |
From: | "Dagfinn Ilmari Mannsåker" <ilmari [...] photobox.com> |
The read-onlyness of is_unique will be enforced by future versions of
SQLT, and the others are set implicitly when the primary key constraint
is added.
---
lib/Metabase/Index/SQL.pm | 3 ---
1 files changed, 0 insertions(+), 3 deletions(-)
diff --git a/lib/Metabase/Index/SQL.pm b/lib/Metabase/Index/SQL.pm
index 8b4052e..62650a0 100644
--- a/lib/Metabase/Index/SQL.pm
+++ b/lib/Metabase/Index/SQL.pm
@@ -118,9 +118,6 @@ sub initialize {
# Core table
my $table = $self->_table_from_meta( $self->_core_table, Metabase::Fact->core_metadata_types );
my $pk = $table->get_field('guid');
- $pk->is_nullable(0);
- $pk->is_unique(1);
- $pk->is_primary_key(1);
while ( my ($k,$v) = each %{$self->_guid_field_params} ) {
$pk->$k($v)
if $pk->can($k);
--
1.7.4.1