From d84f1e1808b3252af83e4963eccfd1e4f19c5326 Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 17 Oct 2014 22:54:13 +0200
Subject: Fix perlcritic issues for all scripts starting with e to l

---
 scripts/hostname.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'scripts/hostname.pl')

diff --git a/scripts/hostname.pl b/scripts/hostname.pl
index 8871aea..2dc23bf 100644
--- a/scripts/hostname.pl
+++ b/scripts/hostname.pl
@@ -1,6 +1,8 @@
 # $Id: hostname.pl,v 1.8 2002/07/04 13:18:02 jylefort Exp $
 
+use strict;
 use Irssi 20020121.2020 ();
+use vars qw($VERSION %IRSSI);
 $VERSION = "1.01";
 %IRSSI = (
 	  authors     => 'Jean-Yves Lefort',
@@ -96,7 +98,6 @@ $VERSION = "1.01";
 #
 #	2002-02-01	initial release
 
-use strict;
 use Socket;
 use Socket6;
 
@@ -116,7 +117,7 @@ sub hostname {
 sub get_addresses {
   Irssi::print("Resolving IP addresses...");
   %addresses = ();
-  open(IFCONFIG, "ifconfig|");
+  open(IFCONFIG, "-|", "ifconfig");
   while (<IFCONFIG>) {
     $addresses{$2} = resolve($2)
       if (/(inet addr:|inet6 addr: |inet |inet6 )([0-9a-f.:]*)/
-- 
cgit v1.2.3