--- a/Lib/IMPL/SQL/Schema/Constraint/Index.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/SQL/Schema/Constraint/Index.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,14 +1,14 @@
-package IMPL::SQL::Schema::Constraint::Index;
-use strict;
-use base qw(IMPL::SQL::Schema::Constraint);
-
-__PACKAGE__->PassThroughArgs;
-
-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');
-}
-
-1; 
+package IMPL::SQL::Schema::Constraint::Index;
+use strict;
+use base qw(IMPL::SQL::Schema::Constraint);
+
+__PACKAGE__->PassThroughArgs;
+
+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');
+}
+
+1;