X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FDBI.pm;h=1d0219d1e07e7009a408b19e205718cab8261041;hb=44659089c28216f1984873bc4aa8641e2e0e3410;hp=f8b1f4b0d7c3d1bcf6d483a1dcd620023613e63f;hpb=d4f84dd192edc7a64a0b1a9923f1bafc0bc5ef9d;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Parser/DBI.pm b/lib/SQL/Translator/Parser/DBI.pm index f8b1f4b..1d0219d 100644 --- a/lib/SQL/Translator/Parser/DBI.pm +++ b/lib/SQL/Translator/Parser/DBI.pm @@ -1,8 +1,6 @@ package SQL::Translator::Parser::DBI; # ------------------------------------------------------------------- -# $Id: DBI.pm 1440 2009-01-17 16:31:57Z jawnsy $ -# ------------------------------------------------------------------- # Copyright (C) 2002-2009 SQLFairy Authors # # This program is free software; you can redistribute it and/or @@ -120,7 +118,8 @@ query Oracle directly and skip the parsing of a text file, too. use strict; use DBI; -use vars qw(@EXPORT); +use vars qw($VERSION @EXPORT); +$VERSION = '1.59'; use constant DRIVERS => { mysql => 'MySQL', @@ -171,7 +170,7 @@ sub parse { my $pkg = "SQL::Translator::Parser::DBI::$driver"; my $sub = $pkg.'::parse'; - $tr->load( $pkg ); + SQL::Translator::load( $pkg ); eval { no strict 'refs';