From 7615088320ac1987ee7eaeeef6c81e68f3c549c0 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 28 Jun 2011 19:45:13 +0200 Subject: VRR.pm: Add Travel::Routing::DE::VRR::Exception base class --- bin/efa | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'bin') diff --git a/bin/efa b/bin/efa index b11018b..c916ca0 100755 --- a/bin/efa +++ b/bin/efa @@ -72,8 +72,9 @@ sub check_for_error { my ($eval_error) = @_; if ( not defined $efa ) { - if ( $eval_error - and ref($eval_error) =~ m{^Travel::Routing::DE::VRR::Exception}x ) + if ( $eval_error + and ref($eval_error) + and $eval_error->isa('Travel::Routing::DE::VRR::Exception') ) { handle_efa_exception($eval_error); } -- cgit v1.2.3