From: Ton Voon Date: Mon, 17 May 2010 12:55:13 +0000 (+0000) Subject: Revert to eval instead of try::tiny because no check for $@ X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67e7b822a0f4105d8127538ae4f8cf4212df46f4;p=dbsrgits%2FDBIx-Class-Historic.git Revert to eval instead of try::tiny because no check for $@ --- diff --git a/lib/DBIx/Class/Schema/Versioned.pm b/lib/DBIx/Class/Schema/Versioned.pm index a10e1fd..2021cf7 100644 --- a/lib/DBIx/Class/Schema/Versioned.pm +++ b/lib/DBIx/Class/Schema/Versioned.pm @@ -503,9 +503,8 @@ sub get_db_version 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; };