[Bast-commits] r9397 - DBIx-Class/0.08/branches/try-tiny/lib/DBIx/Class/Schema

[tonvoon at dev.catalyst.perl.org]

Author: tonvoon
Date: 2010-05-17 13:55:13 +0100 (Mon, 17 May 2010)
New Revision: 9397

Modified:
   DBIx-Class/0.08/branches/try-tiny/lib/DBIx/Class/Schema/Versioned.pm
Log:
Revert to eval instead of try::tiny because no check for $@


Modified: DBIx-Class/0.08/branches/try-tiny/lib/DBIx/Class/Schema/Versioned.pm
===================================================================
--- DBIx-Class/0.08/branches/try-tiny/lib/DBIx/Class/Schema/Versioned.pm	2010-05-17 12:52:28 UTC (rev 9396)
+++ DBIx-Class/0.08/branches/try-tiny/lib/DBIx/Class/Schema/Versioned.pm	2010-05-17 12:55:13 UTC (rev 9397)
@@ -503,9 +503,8 @@
     my ($self, $rs) = @_;
 
     my $vtable = $self->{vschema}->resultset('Table');
-    my $version;
-    try {
-      $version = $vtable->search({}, { order_by => { -desc => 'installed' }, rows => 1 } )
+    my $version = eval {
+      $vtable->search({}, { order_by => { -desc => 'installed' }, rows => 1 } )
               ->get_column ('version')
                ->next;
     };