From: Paul Harrington <phrrngtn@users.sourceforge.net>
Date: Fri, 30 Jul 2004 16:13:52 +0000 (+0000)
Subject: sp_columns on Sybase 12.5.2 (and, perhaps, earlier) needs to be passed nulls explicit... 
X-Git-Tag: v0.06~23
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=546dad3baa7b04b438549aabf0dbe3a354fd4216;p=dbsrgits%2FSQL-Translator.git

sp_columns on Sybase 12.5.2 (and, perhaps, earlier) needs to be passed nulls explicitly so pass in list of undefs to column_info
---

diff --git a/lib/SQL/Translator/Parser/DBI/Sybase.pm b/lib/SQL/Translator/Parser/DBI/Sybase.pm
index b100665..39aff4c 100644
--- a/lib/SQL/Translator/Parser/DBI/Sybase.pm
+++ b/lib/SQL/Translator/Parser/DBI/Sybase.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Parser::DBI::Sybase;
 
 # -------------------------------------------------------------------
-# $Id: Sybase.pm,v 1.5 2004-02-09 22:23:40 kycl4rk Exp $
+# $Id: Sybase.pm,v 1.6 2004-07-30 16:13:52 phrrngtn Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2002-4 SQLFairy Authors
 #
@@ -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.5 $ =~ /(\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({})}) {