X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FProducer%2FDB2.pm;h=051877f3863aa40e5e6aa23c2c1aa964c68b49a3;hb=0e9badbf3cb8beee593cbfc14cf726460967deba;hp=11f77275bf1c840ad7e750a784049835532fe7c5;hpb=ea93df61568d8fa52a9764a09c4351928ff9374d;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Producer/DB2.pm b/lib/SQL/Translator/Producer/DB2.pm index 11f7727..051877f 100644 --- a/lib/SQL/Translator/Producer/DB2.pm +++ b/lib/SQL/Translator/Producer/DB2.pm @@ -1,22 +1,5 @@ package SQL::Translator::Producer::DB2; -# ------------------------------------------------------------------- -# Copyright (C) 2002-2009 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 -# published by the Free Software Foundation; version 2. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -# 02111-1307 USA -# ------------------------------------------------------------------- =head1 NAME SQL::Translator::Producer::DB2 - DB2 SQL producer @@ -36,8 +19,9 @@ Creates an SQL DDL suitable for DB2. use warnings; use strict; -use vars qw[ $VERSION $DEBUG $WARN ]; -$VERSION = '1.59'; +use warnings; +our ( $DEBUG, $WARN ); +our $VERSION = '1.59'; $DEBUG = 0 unless defined $DEBUG; use SQL::Translator::Schema::Constants; @@ -189,8 +173,6 @@ DELETE LANGUAGE RESET DESCRIPTOR LC_CTYPE RESIGNAL /; -#------------------------------------------------------------------------------ - sub produce { my ($translator) = @_;