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/file.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'scripts/file.pl')

diff --git a/scripts/file.pl b/scripts/file.pl
index c088561..95c573e 100644
--- a/scripts/file.pl
+++ b/scripts/file.pl
@@ -1,3 +1,5 @@
+use strict;
+use vars qw($VERSION %IRSSI);
 
 my $help = <<EOF;
 Usage: (all on one line)
@@ -26,8 +28,6 @@ $VERSION = 1.0;
    url         => "http://irssi.dgl.cx/"
 );
 
-use strict;
-
 Irssi::command_bind('file', sub {
    my $data = shift;
 
@@ -64,7 +64,7 @@ Irssi::command_bind('file', sub {
    }
 
    # or do borrowed from one of juerd's scripts (needs 5.6 though)
-   open(FILE, "<$data") or do {
+   open(FILE, "<", $data) or do {
       print "Error opening '$data': $!";
       return;
    };
-- 
cgit v1.2.3