summaryrefslogtreecommitdiff
path: root/bin/efa
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-01-31 18:50:40 +0100
committerDaniel Friesel <derf@finalrewind.org>2011-01-31 18:50:40 +0100
commit3557cfb0c021747caf5a5d2cbb192ac60c0c97bd (patch)
tree71474aee7e39eeb0d6f0d51cde65c241ddfb5efb /bin/efa
parent5dc6d0789474de48cf38650cae648c2367477cf7 (diff)
Improve(?) error handling
Diffstat (limited to 'bin/efa')
-rwxr-xr-xbin/efa10
1 files changed, 3 insertions, 7 deletions
diff --git a/bin/efa b/bin/efa
index 1206f2c..4e4333b 100755
--- a/bin/efa
+++ b/bin/efa
@@ -97,8 +97,8 @@ $efa = WWW::Efa->new(
max_interchanges => $opt->{'max-change'},
);
-if (my $err = $efa->setup_error()) {
- die $err->as_string();
+if ($efa->error()) {
+ die $efa->error()->as_string();
}
if ($opt->{'test-parse'}) {
@@ -111,11 +111,7 @@ else {
);
}
-my $err = $efa->parse();
-
-if ($err and $err->isa('WWW::Efa::Error')) {
- die $err->as_string();
-}
+$efa->parse or die $efa->error()->as_string();
my @connections = $efa->connections();