X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FDBI%2FSybase.pm;h=39aff4c337d158076d7af46fbb7292560be15b60;hb=2c5e662675e0f2eda79de9cbda282883e1783fe4;hp=28b7ddb143dde347ad789d31413f08347ec47989;hpb=587a99b005b9f9143244814149702b27a94699de;p=dbsrgits%2FSQL-Translator.git

diff --git a/lib/SQL/Translator/Parser/DBI/Sybase.pm b/lib/SQL/Translator/Parser/DBI/Sybase.pm
index 28b7ddb..39aff4c 100644
--- a/lib/SQL/Translator/Parser/DBI/Sybase.pm
+++ b/lib/SQL/Translator/Parser/DBI/Sybase.pm
@@ -1,9 +1,9 @@
 package SQL::Translator::Parser::DBI::Sybase;
 
 # -------------------------------------------------------------------
-# $Id: Sybase.pm,v 1.4 2003-10-15 16:40:04 kycl4rk Exp $
+# $Id: Sybase.pm,v 1.6 2004-07-30 16:13:52 phrrngtn Exp $
 # -------------------------------------------------------------------
-# Copyright (C) 2003 Paul Harrington <harringp@deshaw.com>.
+# Copyright (C) 2002-4 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
@@ -40,7 +40,7 @@ use SQL::Translator::Schema;
 use Data::Dumper;
 
 use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/;
 $DEBUG   = 0 unless defined $DEBUG;
 
 no strict 'refs';
@@ -69,7 +69,7 @@ sub parse {
     # it is much quicker to slurp back everything all at once rather
     # than make repeated calls
 
-    $sth = $dbh->column_info();
+    $sth = $dbh->column_info(undef, undef, undef, undef);
 
 
     foreach my $c (@{$sth->fetchall_arrayref({})}) {