summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/efa8
1 files changed, 4 insertions, 4 deletions
diff --git a/bin/efa b/bin/efa
index 0c3392a..802b27d 100755
--- a/bin/efa
+++ b/bin/efa
@@ -60,8 +60,8 @@ sub check_no_connections {
my $err_node = $full_tree->findnodes($xp_err_img)->[0];
if ($err_node) {
- say {*STDERR} "Looks like efa.vrr.de showed an error.";
- say {*STDERR} "I will now try to dump the error message:";
+ say {*STDERR} 'Looks like efa.vrr.de showed an error.';
+ say {*STDERR} 'I will now try to dump the error message:';
say {*STDERR} $err_node->parentNode()->parentNode()->textContent();
@@ -270,7 +270,7 @@ sub parse_tree {
}
else {
say {*STDERR}
- "efa.vrr.de returned no connections, check your input data.";
+ 'efa.vrr.de returned no connections, check your input data.';
exit 3;
}
}
@@ -346,7 +346,7 @@ $post{type_destination} = $to_type;
$post{type_via} = $via_type;
if ($test_parse) {
- local $/;
+ local $/ = undef;
$content = <STDIN>;
}
else {