From: Mark Addison Date: Mon, 29 Mar 2004 11:18:12 +0000 (+0000) Subject: Opps, forgot the sub seperator comment. X-Git-Tag: v0.06~111 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ebe497908ca605f223483e859c3dbc724f3d48a0;p=dbsrgits%2FSQL-Translator.git Opps, forgot the sub seperator comment. --- diff --git a/lib/SQL/Translator/Schema/Constraint.pm b/lib/SQL/Translator/Schema/Constraint.pm index e4ede91..49126b1 100644 --- a/lib/SQL/Translator/Schema/Constraint.pm +++ b/lib/SQL/Translator/Schema/Constraint.pm @@ -1,7 +1,7 @@ package SQL::Translator::Schema::Constraint; # ---------------------------------------------------------------------- -# $Id: Constraint.pm,v 1.12 2004-03-29 10:19:08 grommit Exp $ +# $Id: Constraint.pm,v 1.13 2004-03-29 11:18:12 grommit Exp $ # ---------------------------------------------------------------------- # Copyright (C) 2002-4 SQLFairy Authors # @@ -51,7 +51,7 @@ use SQL::Translator::Utils 'parse_list_arg'; use base 'Class::Base'; use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT); -$VERSION = sprintf "%d.%02d", q$Revision: 1.12 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.13 $ =~ /(\d+)\.(\d+)/; my %VALID_CONSTRAINT_TYPE = ( PRIMARY_KEY, 1, @@ -264,6 +264,7 @@ Returns undef or an empty list if the constraint has no fields set. } } +# ---------------------------------------------------------------------- sub field_names { =head2 field_names