X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=DBSchema%2FForeignKey.pm;h=2dfc93a5f161c10814fbbb2a3f2c4b1cb2eea977;hb=703d77b627a73542be2223dbe957a178891ad829;hp=c47286c0737eddd72896c7fc8949dddb99185993;hpb=a0d2ce8002dc8b55feed629358ae1241bec65ced;p=DBIx-DBSchema.git

diff --git a/DBSchema/ForeignKey.pm b/DBSchema/ForeignKey.pm
index c47286c..2dfc93a 100644
--- a/DBSchema/ForeignKey.pm
+++ b/DBSchema/ForeignKey.pm
@@ -2,7 +2,7 @@ package DBIx::DBSchema::ForeignKey;
 
 use strict;
 
-our $VERSION = '0.1';
+our $VERSION = '0.11';
 our $DEBUG = 0;
 
 =head1 NAME
@@ -77,7 +77,7 @@ sub new {
 
 =item constraint [ CONSTRAINT_NAME ]
 
-Returns or sets the foreign table name
+Returns or sets the constraint name
 
 =cut
 
@@ -203,8 +203,6 @@ sub on_update {
   }
 }
 
-
-
 =item sql_foreign_key
 
 Returns an SQL FOREIGN KEY statement.
@@ -233,8 +231,11 @@ sub cmp {
   my( $self, $other ) = @_;
 
   $self->table eq $other->table
-    and $self->columns_sql eq $other->columns_sql
+    and $self->columns_sql    eq $other->columns_sql
     and $self->references_sql eq $other->references_sql
+    and uc($self->match)      eq uc($other->match)
+    and uc($self->on_delete)  eq uc($other->on_delete)
+    and uc($self->on_update)  eq uc($other->on_update)
   ;
 }