From 7fbe9d8b52d818cefef131db57aa982e7ebf517e Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 6 Jun 2010 18:23:00 +0200 Subject: Fix a few perlcritic warnings --- bin/efa | 8 ++++---- 1 file 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 = ; } else { -- cgit v1.2.3