VRR.pm: Add Travel::Routing::DE::VRR::Exception base class

1 files changed, 3 insertions, 2 deletions

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);
 		}