diff options
| author | David Leadbeater | 2015-01-10 17:26:59 +0000 |
|---|---|---|
| committer | David Leadbeater | 2015-01-10 17:26:59 +0000 |
| commit | 1bae3cffef57d4d46d0230aa4f44cc52c7671b93 (patch) | |
| tree | 03d3b85d868a72a6b162c7dca8ea7c0173510618 /scripts/url_log.pl | |
| parent | 6fa0cda4b3f7d54d5835fe580795e4f35980cc28 (diff) | |
| parent | 55e10f5aeb6d0559518623a432263d4a73d7614b (diff) | |
| download | scripts.irssi.org-1bae3cffef57d4d46d0230aa4f44cc52c7671b93.tar.bz2 | |
Merge pull request #83 from obfuscoder/perlcritic-s-z
Fix perlcritic issues for all scripts starting with s to z
Diffstat (limited to 'scripts/url_log.pl')
| -rw-r--r-- | scripts/url_log.pl | 6 |
1 files changed, 3 insertions, 3 deletions
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, |