X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FDBI%2FSybase.pm;h=572f12cafe5e095a86ef80a9c47ef11eb42c3e45;hb=821a0fde221f5accf93e3f65efa77b5a6733cb5e;hp=5d7120f58a3a4e91c16a22650b5eb14766cfacf2;hpb=1eb8ea88923d80613a0bceedb35b87ad3e8b585d;p=dbsrgits%2FSQL-Translator.git

diff --git a/lib/SQL/Translator/Parser/DBI/Sybase.pm b/lib/SQL/Translator/Parser/DBI/Sybase.pm
index 5d7120f..572f12c 100644
--- a/lib/SQL/Translator/Parser/DBI/Sybase.pm
+++ b/lib/SQL/Translator/Parser/DBI/Sybase.pm
@@ -1,6 +1,24 @@
 package SQL::Translator::Parser::DBI::Sybase;
 
-# $Id: Sybase.pm,v 1.3 2003-10-04 00:10:00 phrrngtn Exp $
+# -------------------------------------------------------------------
+# $Id$
+# -------------------------------------------------------------------
+# 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
+# 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
 
@@ -22,7 +40,7 @@ use SQL::Translator::Schema;
 use Data::Dumper;
 
 use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/;
 $DEBUG   = 0 unless defined $DEBUG;
 
 no strict 'refs';
@@ -51,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({})}) {
@@ -291,25 +309,27 @@ $table_info->{TABLE_NAME},
                                );
 
     }
+
     ### Permissions
     ### Groups
     ### Users
     ### Aliases
     ### Logins
-return 1;
+    return 1;
 }
 
 1;
 
+# -------------------------------------------------------------------
+
 =pod
 
 =head1 AUTHOR
 
-Paul Harrington E<lt>harringp@deshaw.comE<gt>,
+Paul Harrington E<lt>harringp@deshaw.comE<gt>.
 
 =head1 SEE ALSO
 
 DBI, DBD::Sybase, SQL::Translator::Schema.
 
 =cut
-