Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/Constraint/Index.pm @ 33:0004faa276dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fixes, some new tests
author Sergey
date Mon, 09 Nov 2009 16:49:39 +0300
parents 56cef8e3cda6
children 16ada169ca75
comparison
equal deleted inserted replaced
32:56cef8e3cda6 33:0004faa276dc
6 6
7 sub CTOR { 7 sub CTOR {
8 my $this = shift; 8 my $this = shift;
9 9
10 my %colnames; 10 my %colnames;
11 not grep { $colnames{$_}++ } $this->Columns or die new Exception('Each column in the index can occur only once'); 11 not grep { $colnames{$_}++ } @{$this->Columns} or die new Exception('Each column in the index can occur only once');
12 } 12 }
13 13
14 1; 14 1;