[Bast-commits] r8047 - DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2009-12-08 15:15:50 +0000 (Tue, 08 Dec 2009)
New Revision: 8047

Modified:
   DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/MSSQL.pm
Log:
real exception instead of die

Modified: DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/MSSQL.pm
===================================================================
--- DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/MSSQL.pm	2009-12-08 13:23:31 UTC (rev 8046)
+++ DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/MSSQL.pm	2009-12-08 15:15:50 UTC (rev 8047)
@@ -235,7 +235,7 @@
   if ($data->{Character_Value} =~ /^(\d+)\./) {
     return $1;
   } else {
-    die q{wtf your server doesn't have a version!};
+    $self->throw_exception(q{your MSSQL server doesn't have a version!});
   }
 }