summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-06-06 18:23:00 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-06-06 18:23:00 +0200
commit7fbe9d8b52d818cefef131db57aa982e7ebf517e (patch)
treed178e8c6575d914a1ec85bebf6de4459d3893763 /bin
parent23c0341c11435c7b4b124be6c743eda585a93315 (diff)
Fix a few perlcritic warnings
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 {