From: Allen Day Date: Thu, 25 Sep 2003 17:29:25 +0000 (+0000) Subject: oops, missing } X-Git-Tag: v0.04~172 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3d6c9056fc529b57d10d322fce4d7be07c61bc62;p=dbsrgits%2FSQL-Translator.git oops, missing } --- diff --git a/lib/SQL/Translator/Schema/Table.pm b/lib/SQL/Translator/Schema/Table.pm index 2e9f253..adcd7b1 100644 --- a/lib/SQL/Translator/Schema/Table.pm +++ b/lib/SQL/Translator/Schema/Table.pm @@ -1,7 +1,7 @@ package SQL::Translator::Schema::Table; # ---------------------------------------------------------------------- -# $Id: Table.pm,v 1.21 2003-09-25 17:28:37 allenday Exp $ +# $Id: Table.pm,v 1.22 2003-09-25 17:29:25 allenday Exp $ # ---------------------------------------------------------------------- # Copyright (C) 2003 Ken Y. Clark # @@ -51,7 +51,7 @@ use Data::Dumper; use base 'Class::Base'; use vars qw( $VERSION $FIELD_ORDER ); -$VERSION = sprintf "%d.%02d", q$Revision: 1.21 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.22 $ =~ /(\d+)\.(\d+)/; # ---------------------------------------------------------------------- sub init { @@ -446,6 +446,7 @@ sub is_trivial_link { $self->{'is_trivial_link'} = 0; last; } + } return $self->{'is_trivial_link'};