r56232 - in /trunk/libdbix-class-schema-loader-perl: ./ debian/ lib/DBIx/Class/Schema/ lib/DBIx/Class/Schema/Loader/ lib/DBIx/Class/Schema/Loader/DBI/ lib/DBIx/Class/Schema/Loader/DBI/Component/ lib/DBIx/Class/Schema/Loader/DBI/ODBC/ lib/DBIx/Class/Schema/Loader/DBI/Sybase/ lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/ t/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Apr 16 20:19:20 UTC 2010
Author: gregoa
Date: Fri Apr 16 20:19:11 2010
New Revision: 56232
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56232
Log:
* New upstream release 0.06000
* New upstream release 0.06001.
Modified:
trunk/libdbix-class-schema-loader-perl/Changes
trunk/libdbix-class-schema-loader-perl/META.yml
trunk/libdbix-class-schema-loader-perl/debian/changelog
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/Base.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
trunk/libdbix-class-schema-loader-perl/t/16mssql_common.t
Modified: trunk/libdbix-class-schema-loader-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/Changes?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/Changes (original)
+++ trunk/libdbix-class-schema-loader-perl/Changes Fri Apr 16 20:19:11 2010
@@ -1,4 +1,8 @@
Revision history for Perl extension DBIx::Class::Schema::Loader
+
+0.06001 2010-04-10 01:31:12
+ - fix type info for MSSQL
+ - fix MSSQL collation detection on freetds tds version 8.0
0.06000 2010-04-06 01:12:25
- better type info for MySQL
Modified: trunk/libdbix-class-schema-loader-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/META.yml?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/META.yml (original)
+++ trunk/libdbix-class-schema-loader-perl/META.yml Fri Apr 16 20:19:11 2010
@@ -28,73 +28,73 @@
provides:
DBIx::Class::Schema::Loader:
file: lib/DBIx/Class/Schema/Loader.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::Base:
file: lib/DBIx/Class/Schema/Loader/Base.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI:
file: lib/DBIx/Class/Schema/Loader/DBI.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault:
file: lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::DB2:
file: lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::InterBase:
file: lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::MSSQL:
file: lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::ODBC:
file: lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::ODBC::Firebird:
file: lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server:
file: lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere:
file: lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::Oracle:
file: lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::Pg:
file: lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::SQLAnywhere:
file: lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::SQLite:
file: lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::Sybase:
file: lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::Sybase::Common:
file: lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::Sybase::Microsoft_SQL_Server:
file: lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::Writing:
file: lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::DBI::mysql:
file: lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::RelBuilder:
file: lib/DBIx/Class/Schema/Loader/RelBuilder.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040:
file: lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
- version: 0.06000
+ version: 0.06001
DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_05:
file: lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
- version: 0.06000
+ version: 0.06001
requires:
Carp::Clan: 0
Class::Accessor::Grouped: 0.09002
@@ -120,4 +120,4 @@
MailingList: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
license: http://dev.perl.org/licenses/
repository: git://git.shadowcat.co.uk/dbsrgits/DBIx-Class-Schema-Loader.git
-version: 0.06000
+version: 0.06001
Modified: trunk/libdbix-class-schema-loader-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/debian/changelog?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/debian/changelog (original)
+++ trunk/libdbix-class-schema-loader-perl/debian/changelog Fri Apr 16 20:19:11 2010
@@ -1,12 +1,16 @@
-libdbix-class-schema-loader-perl (0.06000-1) UNRELEASED; urgency=low
+libdbix-class-schema-loader-perl (0.06001-1) UNRELEASED; urgency=low
WAITS-FOR: liblingua-en-inflect-phrase-perl
- * New upstream release
+ [ Jonathan Yu ]
+ * New upstream release 0.06000
* Use new 3.0 (quilt) source format
* Update dependencies per upstream
- -- Jonathan Yu <jawnsy at cpan.org> Tue, 06 Apr 2010 17:24:15 -0400
+ [ gregor herrmann ]
+ * New upstream release 0.06001.
+
+ -- gregor herrmann <gregoa at debian.org> Fri, 16 Apr 2010 22:18:18 +0200
libdbix-class-schema-loader-perl (0.05003-2) unstable; urgency=low
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader.pm Fri Apr 16 20:19:11 2010
@@ -10,7 +10,7 @@
# Always remember to do all digits for the version even if they're 0
# i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports
# brain damage and presumably various other packaging systems too
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
__PACKAGE__->mk_group_accessors('inherited', qw/
_loader_args
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/Base.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/Base.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/Base.pm Fri Apr 16 20:19:11 2010
@@ -22,7 +22,7 @@
use File::Slurp 'slurp';
require DBIx::Class;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
__PACKAGE__->mk_group_ro_accessors('simple', qw/
schema
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI.pm Fri Apr 16 20:19:11 2010
@@ -6,7 +6,7 @@
use Class::C3;
use Carp::Clan qw/^DBIx::Class/;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm Fri Apr 16 20:19:11 2010
@@ -4,7 +4,7 @@
use warnings;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm Fri Apr 16 20:19:11 2010
@@ -9,7 +9,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm Fri Apr 16 20:19:11 2010
@@ -12,7 +12,7 @@
unquoted_ddl
/);
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm Fri Apr 16 20:19:11 2010
@@ -10,7 +10,7 @@
case_sensitive_collation
/);
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
@@ -37,15 +37,11 @@
lowercasing behavior accordingly, as lower-cased column names do not work on
case-sensitive databases.
-If you are using FreeTDS with C<tds version> set to C<8.0> the collation
-detection may fail, and Loader will default to case-insensitive mode. C<tds
-version> C<7.0> will work fine.
-
-If this happens set:
-
- case_sensitive_collation => 1
-
-in your Loader options to override it.
+To manually control case-sensitive mode, put:
+
+ case_sensitive_collation => 1|0
+
+in your Loader options.
=cut
@@ -73,7 +69,7 @@
# more on collations here: http://msdn.microsoft.com/en-us/library/ms143515.aspx
my ($collation_name) =
eval { $dbh->selectrow_array('SELECT collation_name FROM sys.databases WHERE name = DB_NAME()') }
- || eval { $dbh->selectrow_array("SELECT databasepropertyex(DB_NAME(), 'Collation')") };
+ || eval { $dbh->selectrow_array("SELECT CAST(databasepropertyex(DB_NAME(), 'Collation') AS VARCHAR)") };
if (not $collation_name) {
warn <<'EOF';
@@ -190,6 +186,7 @@
while (my ($col, $info) = each %$result) {
my $dbh = $self->schema->storage->dbh;
+# find identities
my $sth = $dbh->prepare(qq{
SELECT column_name
FROM INFORMATION_SCHEMA.COLUMNS
@@ -202,6 +199,78 @@
delete $info->{size};
}
+# fix types
+ if ($info->{data_type} eq 'int') {
+ $info->{data_type} = 'integer';
+ }
+ elsif ($info->{data_type} eq 'timestamp') {
+ $info->{inflate_datetime} = 0;
+ }
+ elsif ($info->{data_type} =~ /^(?:numeric|decimal)\z/) {
+ if (ref($info->{size}) && $info->{size}[0] == 18 && $info->{size}[1] == 0) {
+ delete $info->{size};
+ }
+ }
+ elsif ($info->{data_type} eq 'real') {
+ $info->{data_type} = 'float';
+ $info->{size} = 24;
+ }
+ elsif ($info->{data_type} eq 'float') {
+ $info->{data_type} = 'double precision';
+ }
+ elsif ($info->{data_type} =~ /^(?:small)?datetime\z/) {
+ # fixup for DBD::Sybase
+ if ($info->{default_value} && $info->{default_value} eq '3') {
+ delete $info->{default_value};
+ }
+ }
+ elsif ($info->{data_type} eq 'datetimeoffset') {
+ $info->{size} = {
+ 26 => 0,
+ 28 => 1,
+ 29 => 2,
+ 30 => 3,
+ 31 => 4,
+ 32 => 5,
+ 33 => 6,
+ 34 => 7,
+ }->{$info->{size}};
+
+ delete $info->{size} if $info->{size} == 7;
+ }
+ elsif ($info->{data_type} eq 'datetime2') {
+ $info->{size} = {
+ 19 => 0,
+ 21 => 1,
+ 22 => 2,
+ 23 => 3,
+ 24 => 4,
+ 25 => 5,
+ 26 => 6,
+ 27 => 7,
+ }->{$info->{size}};
+
+ delete $info->{size} if $info->{size} == 7;
+ }
+ elsif ($info->{data_type} eq 'time') {
+ $info->{size} = {
+ 8 => 0,
+ 10 => 1,
+ 11 => 2,
+ 12 => 3,
+ 13 => 4,
+ 14 => 5,
+ 15 => 6,
+ 16 => 7,
+ }->{$info->{size}};
+
+ delete $info->{size} if $info->{size} == 7;
+ }
+
+ if ($info->{data_type} !~ /^(?:n?char|n?varchar|binary|varbinary|numeric|decimal|float|datetime(?:2|offset)|time)\z/) {
+ delete $info->{size};
+ }
+
# get default
$sth = $dbh->prepare(qq{
SELECT column_default
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm Fri Apr 16 20:19:11 2010
@@ -6,7 +6,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm Fri Apr 16 20:19:11 2010
@@ -9,7 +9,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm Fri Apr 16 20:19:11 2010
@@ -8,7 +8,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm Fri Apr 16 20:19:11 2010
@@ -8,7 +8,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm Fri Apr 16 20:19:11 2010
@@ -9,7 +9,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm Fri Apr 16 20:19:11 2010
@@ -9,7 +9,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm Fri Apr 16 20:19:11 2010
@@ -9,7 +9,7 @@
/;
use Carp::Clan qw/^DBIx::Class/;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm Fri Apr 16 20:19:11 2010
@@ -10,7 +10,7 @@
use Text::Balanced qw( extract_bracketed );
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm Fri Apr 16 20:19:11 2010
@@ -6,7 +6,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm Fri Apr 16 20:19:11 2010
@@ -6,7 +6,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm Fri Apr 16 20:19:11 2010
@@ -6,7 +6,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm Fri Apr 16 20:19:11 2010
@@ -1,7 +1,7 @@
package DBIx::Class::Schema::Loader::DBI::Writing;
use strict;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
# Empty. POD only.
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm Fri Apr 16 20:19:11 2010
@@ -6,7 +6,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder.pm Fri Apr 16 20:19:11 2010
@@ -6,7 +6,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Lingua::EN::Inflect::Phrase ();
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
=head1 NAME
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm Fri Apr 16 20:19:11 2010
@@ -7,7 +7,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Lingua::EN::Inflect::Number ();
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
sub _default_relationship_attrs { +{} }
Modified: trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm (original)
+++ trunk/libdbix-class-schema-loader-perl/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm Fri Apr 16 20:19:11 2010
@@ -7,7 +7,7 @@
use Carp::Clan qw/^DBIx::Class/;
use Lingua::EN::Inflect::Number ();
-our $VERSION = '0.06000';
+our $VERSION = '0.06001';
sub _to_PL {
my ($self, $name) = @_;
Modified: trunk/libdbix-class-schema-loader-perl/t/16mssql_common.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbix-class-schema-loader-perl/t/16mssql_common.t?rev=56232&op=diff
==============================================================================
--- trunk/libdbix-class-schema-loader-perl/t/16mssql_common.t (original)
+++ trunk/libdbix-class-schema-loader-perl/t/16mssql_common.t Fri Apr 16 20:19:11 2010
@@ -38,7 +38,93 @@
} : ()),
],
data_types => {
- 'int identity' => { data_type => 'int', is_auto_increment => 1 },
+ # http://msdn.microsoft.com/en-us/library/ms187752.aspx
+
+ # numeric types
+ 'int identity' => { data_type => 'integer', is_auto_increment => 1 },
+ bigint => { data_type => 'bigint' },
+ int => { data_type => 'integer' },
+ integer => { data_type => 'integer' },
+ smallint => { data_type => 'smallint' },
+ tinyint => { data_type => 'tinyint' },
+ money => { data_type => 'money' },
+ smallmoney => { data_type => 'smallmoney' },
+ bit => { data_type => 'bit' },
+ real => { data_type => 'float', size => 24 },
+ 'float(14)' => { data_type => 'float', size => 24 },
+ 'float(24)' => { data_type => 'float', size => 24 },
+ 'float(25)' => { data_type => 'double precision' },
+ 'float(53)' => { data_type => 'double precision' },
+ float => { data_type => 'double precision' },
+ 'double precision'
+ => { data_type => 'double precision' },
+ 'numeric(6,3)' => { data_type => 'numeric', size => [6,3] },
+ 'decimal(6,3)' => { data_type => 'decimal', size => [6,3] },
+ 'dec(6,3)' => { data_type => 'decimal', size => [6,3] },
+ numeric => { data_type => 'numeric' },
+ decimal => { data_type => 'decimal' },
+ dec => { data_type => 'decimal' },
+
+ # datetime types
+ date => { data_type => 'date' },
+ datetime => { data_type => 'datetime' },
+ 'datetime DEFAULT getdate()'
+ => { data_type => 'datetime', default_value => \'getdate()' },
+ smalldatetime => { data_type => 'smalldatetime' },
+ time => { data_type => 'time' },
+ 'time(0)'=> { data_type => 'time', size => 0 },
+ 'time(1)'=> { data_type => 'time', size => 1 },
+ 'time(2)'=> { data_type => 'time', size => 2 },
+ 'time(3)'=> { data_type => 'time', size => 3 },
+ 'time(4)'=> { data_type => 'time', size => 4 },
+ 'time(5)'=> { data_type => 'time', size => 5 },
+ 'time(6)'=> { data_type => 'time', size => 6 },
+ 'time(7)'=> { data_type => 'time' },
+ datetimeoffset => { data_type => 'datetimeoffset' },
+ 'datetimeoffset(0)' => { data_type => 'datetimeoffset', size => 0 },
+ 'datetimeoffset(1)' => { data_type => 'datetimeoffset', size => 1 },
+ 'datetimeoffset(2)' => { data_type => 'datetimeoffset', size => 2 },
+ 'datetimeoffset(3)' => { data_type => 'datetimeoffset', size => 3 },
+ 'datetimeoffset(4)' => { data_type => 'datetimeoffset', size => 4 },
+ 'datetimeoffset(5)' => { data_type => 'datetimeoffset', size => 5 },
+ 'datetimeoffset(6)' => { data_type => 'datetimeoffset', size => 6 },
+ 'datetimeoffset(7)' => { data_type => 'datetimeoffset' },
+ datetime2 => { data_type => 'datetime2' },
+ 'datetime2(0)' => { data_type => 'datetime2', size => 0 },
+ 'datetime2(1)' => { data_type => 'datetime2', size => 1 },
+ 'datetime2(2)' => { data_type => 'datetime2', size => 2 },
+ 'datetime2(3)' => { data_type => 'datetime2', size => 3 },
+ 'datetime2(4)' => { data_type => 'datetime2', size => 4 },
+ 'datetime2(5)' => { data_type => 'datetime2', size => 5 },
+ 'datetime2(6)' => { data_type => 'datetime2', size => 6 },
+ 'datetime2(7)' => { data_type => 'datetime2' },
+
+ # string types
+ char => { data_type => 'char', size => 1 },
+ 'char(2)' => { data_type => 'char', size => 2 },
+ 'varchar(2)' => { data_type => 'varchar', size => 2 },
+ nchar => { data_type => 'nchar', size => 1 },
+ 'nchar(2)' => { data_type => 'nchar', size => 2 },
+ 'nvarchar(2)' => { data_type => 'nvarchar', size => 2 },
+
+ # binary types
+ 'binary(2)' => { data_type => 'binary', size => 2 },
+ 'varbinary(2)' => { data_type => 'varbinary', size => 2 },
+
+ # blob types
+ 'varchar(max)' => { data_type => 'text' },
+ text => { data_type => 'text' },
+ 'nvarchar(max)' => { data_type => 'ntext' },
+ ntext => { data_type => 'ntext' },
+ 'varbinary(max)' => { data_type => 'image' },
+ image => { data_type => 'image' },
+
+ # other types
+ timestamp => { data_type => 'timestamp', inflate_datetime => 0 },
+ uniqueidentifier => { data_type => 'uniqueidentifier' },
+ hierarchyid => { data_type => 'hierarchyid' },
+ sql_variant => { data_type => 'sql_variant' },
+ xml => { data_type => 'xml' },
},
extra => {
create => [
More information about the Pkg-perl-cvs-commits
mailing list