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

(limited to 'scripts/urlgrab.pl')

diff --git a/scripts/urlgrab.pl b/scripts/urlgrab.pl
index 1fd657f..00b0c64 100644
--- a/scripts/urlgrab.pl
+++ b/scripts/urlgrab.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
+use strict;
 use Irssi 20010120.0250 ();
+use vars qw($VERSION %IRSSI);
 $VERSION = "0.2";
 %IRSSI = (
     authors     => 'David Leadbeater',
@@ -10,7 +12,6 @@ $VERSION = "0.2";
     url         => 'http://irssi.dgl.cx/',
 );
 
-use strict;
 my $lasturl;
 
 # Change the file path below if needed
@@ -50,7 +51,7 @@ sub url_log{
    my($where,$channel,$url) = @_;
    return if lc $url eq lc $lasturl; # a tiny bit of protection from spam/flood
    $lasturl = $url;
-   open(URLLOG, ">>$file") or return;
+   open(URLLOG, ">>", $file) or return;
    print URLLOG time." $where $channel $lasturl\n";
    close(URLLOG);
 }
-- 
cgit v1.2.3