From 5f87f2bb33116ae072b7320fe9cedace0050d5d1 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 13 Aug 2010 17:28:54 +0200 Subject: Add $efa->setup_error() to replace $efa->{'error'} check --- bin/efa | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bin') diff --git a/bin/efa b/bin/efa index ad57e01..b7b61d4 100755 --- a/bin/efa +++ b/bin/efa @@ -100,8 +100,8 @@ $efa = WWW::Efa->new( max_interchanges => $opt->{'max-change'}, ); -if ($efa->{'error'}) { - die $efa->{'error'}->as_string(); +if (my $err = $efa->setup_error()) { + die $err->as_string(); } if ($opt->{'test-parse'}) { -- cgit v1.2.3