diff options
| author | David Leadbeater | 2015-01-10 17:49:34 +0000 |
|---|---|---|
| committer | David Leadbeater | 2015-01-10 17:49:34 +0000 |
| commit | 2d920d6f610e176bf121f9089f21956595df70e9 (patch) | |
| tree | 287ac1dba07509317309acab3161f5da286958e9 /scripts/intjoin.pl | |
| parent | 1bae3cffef57d4d46d0230aa4f44cc52c7671b93 (diff) | |
| parent | d84f1e1808b3252af83e4963eccfd1e4f19c5326 (diff) | |
| download | scripts.irssi.org-2d920d6f610e176bf121f9089f21956595df70e9.tar.bz2 | |
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
Diffstat (limited to 'scripts/intjoin.pl')
| -rw-r--r-- | scripts/intjoin.pl | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/scripts/intjoin.pl b/scripts/intjoin.pl index c9660e0..858ae25 100644 --- a/scripts/intjoin.pl +++ b/scripts/intjoin.pl @@ -4,6 +4,7 @@ # - http://penguin-breeder.org/irssi/ #<scriptinfo> +use strict; use vars qw($VERSION %IRSSI); use Irssi 20020120; @@ -35,12 +36,12 @@ sub cmd_join18n { return; } - $enc = Irssi::settings_get_str("join18n_encoding"); + my $enc = Irssi::settings_get_str("join18n_encoding"); $enc = $1 if $data =~ /^\s*-enc\s+(\S+)/; $data =~ s/^\s*-enc\s+(\S+)//; - $converter = Text::Iconv->new("UTF-8", $enc); + my $converter = Text::Iconv->new("UTF-8", $enc); if (!$converter) { Irssi::print("Invalid encoding specified: $enc"); @@ -63,14 +64,14 @@ sub cmd_msg18n { return; } - $name = $channel->{name}; + my $name = $channel->{name}; - $enc = Irssi::settings_get_str("join18n_encoding"); + my $enc = Irssi::settings_get_str("join18n_encoding"); $enc = $1 if $data =~ /^\s*-enc\s+(\S+)/; $data =~ s/^\s*-enc\s+(\S+)//; - $converter = Text::Iconv->new("UTF-8", $enc); + my $converter = Text::Iconv->new("UTF-8", $enc); if (!$converter) { Irssi::print("Invalid encoding specified: $enc"); @@ -94,14 +95,14 @@ sub cmd_part18n { return; } - $name = $channel->{name}; + my $name = $channel->{name}; - $enc = Irssi::settings_get_str("join18n_encoding"); + my $enc = Irssi::settings_get_str("join18n_encoding"); $enc = $1 if $data =~ /^\s*-enc\s+(\S+)/; $data =~ s/^\s*-enc\s+(\S+)//; - $converter = Text::Iconv->new("UTF-8", $enc); + my $converter = Text::Iconv->new("UTF-8", $enc); if (!$converter) { Irssi::print("Invalid encoding specified: $enc"); |