$server->values()->{'nick'} works fine without any

$sinfo = %{$server->values()}; $sinfo{'nick'} ugliness, fixed.

make install didn't work in plugins/perl


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@137 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-03-10 20:16:43 +00:00 committed by cras
commit 73703bd87a
4 changed files with 13 additions and 29 deletions

View file

@ -8,9 +8,7 @@ sub event_privmsg {
return if (!Irssi::is_channel($target));
%sinfo = %{$server->values()};
$mynick = $sinfo{'nick'};
$mynick = $server->values()->{'nick'};
return if ($text !~ /\b$mynick\b/);
$server->command("/notice $mynick In channel $target, $nick!$address said: $text");