Mercurial > pub > Impl

diff Lib/IMPL/SQL/Schema/Constraint/Index.pm @ 168:6148f89bb7bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMPL::SQL::Schema::Traits::Diff alfa version IMPL::lang added hash traits
author sourcer
date Mon, 16 May 2011 04:30:38 +0400
parents 76515373dac0
children
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/Constraint/Index.pm	Thu May 12 08:57:19 2011 +0400
+++ b/Lib/IMPL/SQL/Schema/Constraint/Index.pm	Mon May 16 04:30:38 2011 +0400
@@ -3,12 +3,13 @@
 use parent qw(IMPL::SQL::Schema::Constraint);
 
 __PACKAGE__->PassThroughArgs;
+__PACKAGE__->RegisterAlias('index');
 
 sub CTOR {
     my $this = shift;
     
     my %colnames;
-    not grep { $colnames{$_}++ } @{$this->columns} or die new Exception('Each column in the index can occur only once');
+    not grep { $colnames{$_}++ } $this->columns or die new Exception('Each column in the index can occur only once');
 }
 
 1;