From: Ken Youens-Clark Date: Tue, 17 Jun 2003 03:03:10 +0000 (+0000) Subject: Nothing really changed. X-Git-Tag: v0.02~7 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95758c83a780a6d4a063ad569edd7d9e1a4814f9;p=dbsrgits%2FSQL-Translator.git Nothing really changed. --- diff --git a/lib/SQL/Translator/Producer/ClassDBI.pm b/lib/SQL/Translator/Producer/ClassDBI.pm index c339a81..ed69d19 100755 --- a/lib/SQL/Translator/Producer/ClassDBI.pm +++ b/lib/SQL/Translator/Producer/ClassDBI.pm @@ -1,7 +1,7 @@ package SQL::Translator::Producer::ClassDBI; # ------------------------------------------------------------------- -# $Id: ClassDBI.pm,v 1.14 2003-06-11 04:00:42 kycl4rk Exp $ +# $Id: ClassDBI.pm,v 1.15 2003-06-17 03:03:10 kycl4rk Exp $ # ------------------------------------------------------------------- # Copyright (C) 2003 Allen Day , # Ying Zhang @@ -23,7 +23,7 @@ package SQL::Translator::Producer::ClassDBI; use strict; use vars qw[ $VERSION $DEBUG ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.14 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/; $DEBUG = 1 unless defined $DEBUG; use SQL::Translator::Schema::Constants; @@ -199,7 +199,6 @@ sub produce { return $create; } - sub _from { my $from = shift; my @temp = split(/::/, $from);