[Bast-commits] r8059 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2009-12-09 23:32:55 +0000 (Wed, 09 Dec 2009)
New Revision: 8059

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/MSSQL.pm
Log:
fail nicely if user doesn't have perms for xp_msver

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/MSSQL.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/MSSQL.pm	2009-12-09 22:20:51 UTC (rev 8058)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/MSSQL.pm	2009-12-09 23:32:55 UTC (rev 8059)
@@ -244,7 +244,7 @@
 
   unless ($self->_sql_maker) {
     unless ($self->{_sql_maker_opts}{limit_dialect}) {
-      my $version = $self->_get_mssql_version;
+      my $version = eval { $self->_get_mssql_version; } || 0;
 
       $self->{_sql_maker_opts} = {
         limit_dialect => ($version >= 9 ? 'RowNumberOver' : 'Top'),