Changed Constraint.equals() to ignore ordering of fields and reference fields

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Schema / Constants.pm

diff --git a/lib/SQL/Translator/Schema/Constants.pm b/lib/SQL/Translator/Schema/Constants.pm
index 9a05d03..95fa2a6 100644 (file)
--- a/lib/SQL/Translator/Schema/Constants.pm
+++ b/lib/SQL/Translator/Schema/Constants.pm
@@ -1,9 +1,9 @@
 package SQL::Translator::Schema::Constants;
 
 # ----------------------------------------------------------------------
-# $Id: Constants.pm,v 1.42 2004-01-27 15:38:15 grommit Exp $
+# $Id: Constants.pm,v 1.43 2004-02-09 22:15:15 kycl4rk Exp $
 # ----------------------------------------------------------------------
-# Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>
+# Copyright (C) 2002-4 SQLFairy Authors
 #
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License as
@@ -63,7 +63,7 @@ use strict;
 use base qw( Exporter );
 use vars qw( @EXPORT $VERSION );
 require Exporter;
-$VERSION = sprintf "%d.%02d", q$Revision: 1.42 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.43 $ =~ /(\d+)\.(\d+)/;
 
 @EXPORT = qw[ 
     CHECK_C
@@ -97,17 +97,12 @@ use constant UNIQUE => 'UNIQUE';
 
 1;
 
+# ----------------------------------------------------------------------
+
 =pod
 
 =head1 AUTHOR
 
-Ken Y. Clark E<lt>kclark@cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2003
-
-This library is free software;  you can redistribute it and/or modify 
-it under the same terms as Perl itself.
+Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
 
 =cut