X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FSchema%2FView.pm;h=4d39621ea62d62ff401b663f7be12b1e39764f58;hb=ea93df61568d8fa52a9764a09c4351928ff9374d;hp=beb83dfce3086b92a864bf57a2af17e13b58bac2;hpb=ba506e52c480afe33dfec6b38a12759fad1e7fa2;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Schema/View.pm b/lib/SQL/Translator/Schema/View.pm index beb83df..4d39621 100644 --- a/lib/SQL/Translator/Schema/View.pm +++ b/lib/SQL/Translator/Schema/View.pm @@ -48,7 +48,7 @@ use base 'SQL::Translator::Schema::Object'; use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT); -$VERSION = '1.60'; +$VERSION = '1.59'; # ---------------------------------------------------------------------- @@ -224,11 +224,11 @@ Determines if this view is the same as another my $other = shift; my $case_insensitive = shift; my $ignore_sql = shift; - + return 0 unless $self->SUPER::equals($other); return 0 unless $case_insensitive ? uc($self->name) eq uc($other->name) : $self->name eq $other->name; #return 0 unless $self->is_valid eq $other->is_valid; - + unless ($ignore_sql) { my $selfSql = $self->sql; my $otherSql = $other->sql; @@ -240,7 +240,7 @@ Determines if this view is the same as another $otherSql =~ s/\s+/ /sg; return 0 unless $selfSql eq $otherSql; } - + my $selfFields = join(":", $self->fields); my $otherFields = join(":", $other->fields); return 0 unless $case_insensitive ? uc($selfFields) eq uc($otherFields) : $selfFields eq $otherFields;