package SQL::Translator::Parser::DBI::Sybase;
# -------------------------------------------------------------------
-# $Id: Sybase.pm,v 1.4 2003-10-15 16:40:04 kycl4rk Exp $
+# $Id$
# -------------------------------------------------------------------
-# Copyright (C) 2003 Paul Harrington <harringp@deshaw.com>.
+# 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
use SQL::Translator::Schema;
use Data::Dumper;
-use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
+use vars qw[ $DEBUG @EXPORT_OK ];
$DEBUG = 0 unless defined $DEBUG;
no strict 'refs';
# 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({})}) {