diff Lib/IMPL/SQL/Schema/Traits/Diff.pm @ 169:fd92830036c3

corrected IMPL::SQL::Schema::Diff
author sourcer
date Tue, 17 May 2011 00:04:28 +0400
parents 6148f89bb7bf
children d1676be8afcc
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/Traits/Diff.pm	Mon May 16 04:30:38 2011 +0400
+++ b/Lib/IMPL/SQL/Schema/Traits/Diff.pm	Tue May 17 00:04:28 2011 +0400
@@ -65,7 +65,7 @@
 					new IMPL::SQL::Schema::Traits::AlterTableAddConstraint( $dst->name, _Constraint2Traits($cnDst) );
 			}
 		} else {
-			push @dropConstraints,new IMPL::SQL::Schema::Traits::AlterTableDropConstrait( $src->name, $cnSrcName );
+			push @dropConstraints,new IMPL::SQL::Schema::Traits::AlterTableDropConstraint( $src->name, $cnSrcName );
 		}
 	}
 	
@@ -119,8 +119,8 @@
 			$op->isNullable( $info->{column}->isNullable ) unless equals($info->{column}->isNullable,$info->{prevColumn}->isNullable);
 			$op->defaultValue( $info->{column}->defaultValue ) unless equals($info->{column}->defaultValue, $info->{prevColumn}->defaultValue);
 			
-			my %diff = hashDiff($info->{prevColumn},$info->{column});
-			$op->options(\%diff) if %diff;
+			my $diff = hashDiff($info->{prevColumn}->tag,$info->{column}->tag);
+			$op->options($diff) if %$diff;
 			
 			push @updateColumns, $op;
 		}