From 55e10f5aeb6d0559518623a432263d4a73d7614b Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 24 Oct 2014 23:01:30 +0200
Subject: Fix perlcritic issues for all scripts starting with s to z

---
 scripts/url_log.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'scripts/url_log.pl')

diff --git a/scripts/url_log.pl b/scripts/url_log.pl
index fdcf09e..f156138 100644
--- a/scripts/url_log.pl
+++ b/scripts/url_log.pl
@@ -47,8 +47,10 @@
 #  - don't output "bytes" if content-length is not available
 #  - prefix with http:// if no prefix is given
 
+use strict;
 use Irssi;
 use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
 
 $VERSION = "0.2";
 %IRSSI = (
@@ -67,8 +69,6 @@ use DBI;
 
 use POSIX qw(strftime);
 
-use strict;
-
 my @urls;
 my $user_agent = new LWP::UserAgent;
 
@@ -179,7 +179,7 @@ sub log_to_file
     my ($nick, $target, $text) = @_;
     my ($lfile) = glob Irssi::settings_get_str("url_log_file");
 
-    if ( open(LFD, ">> $lfile") ) {
+    if ( open(LFD, ">>", $lfile) ) {
 
         my %h = {
             time => time,
-- 
cgit v1.2.3