diff options
| author | David Leadbeater | 2015-01-10 17:50:12 +0000 |
|---|---|---|
| committer | David Leadbeater | 2015-01-10 17:50:12 +0000 |
| commit | 3350aef6b04f0d33ad52b41179c6742a98d2aa1f (patch) | |
| tree | 287ac1dba07509317309acab3161f5da286958e9 /scripts/kill_fake_gets.pl | |
| parent | 1bae3cffef57d4d46d0230aa4f44cc52c7671b93 (diff) | |
| parent | 2d920d6f610e176bf121f9089f21956595df70e9 (diff) | |
| download | scripts.irssi.org-3350aef6b04f0d33ad52b41179c6742a98d2aa1f.tar.bz2 | |
Merge branch 'obfuscoder-perlcritic-e-l' into gh-pages
Diffstat (limited to 'scripts/kill_fake_gets.pl')
| -rw-r--r-- | scripts/kill_fake_gets.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/scripts/kill_fake_gets.pl b/scripts/kill_fake_gets.pl index 65be5b4..0eefb40 100644 --- a/scripts/kill_fake_gets.pl +++ b/scripts/kill_fake_gets.pl @@ -12,6 +12,9 @@ # Anyway, this should be fixed. And now it closes stalled gets as well. # +use strict; +use vars qw($VERSION %IRSSI); + $VERSION = "1.1"; %IRSSI = ( authors => "Piotr 'Cvbge' Krukowiecki", @@ -28,7 +31,7 @@ my $debug = 0; # set this to 1 to enable A LOT OF debug messages sub pd { return if (not $debug); - $dcc = @_[0]; + my $dcc = @_[0]; Irssi::print("SDC '$dcc->{type}' from '$dcc->{nick}' on '$dcc->{servertag}' arg '$dcc->{arg}'"); Irssi::print("SDC created '$dcc->{created}' addr '$dcc->{addr}' port '$dcc->{port}'"); Irssi::print("SDC starttime '$dcc->{starttime}' transfd '$dcc->{transfd}'"); |