Merge branch 'perlcritic-e-l' of git://github.com/obfuscoder/scripts.irssi.org into obfuscoder-perlcritic-e-l

Conflicts:
	scripts/eng_no_translate_dpryo.pl

1 files changed, 3 insertions, 3 deletions

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;
    };