=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libpoe-component-irc-perl-6.90+dfsg/examples/ircproxy.pl-84- printf "Connect to %s [%s]:[%s]\n", libpoe-component-irc-perl-6.90+dfsg/examples/ircproxy.pl:85: scalar gethostbyaddr($myaddr, AF_INET), libpoe-component-irc-perl-6.90+dfsg/examples/ircproxy.pl-86- inet_ntoa($myaddr), $port; ############################################## libpoe-component-irc-perl-6.90+dfsg/t/04_plugins/12_autojoin/02_join.t-71- libpoe-component-irc-perl-6.90+dfsg/t/04_plugins/12_autojoin/02_join.t:72: $where =~ /^#chan[12]$/ libpoe-component-irc-perl-6.90+dfsg/t/04_plugins/12_autojoin/02_join.t-73- ? pass("Joined channel $where") ############################################## libpoe-component-irc-perl-6.90+dfsg/t/04_plugins/06_plugman/04_auth_sub.t-106- my $nick = (split /!/, $_[ARG0])[0]; libpoe-component-irc-perl-6.90+dfsg/t/04_plugins/06_plugman/04_auth_sub.t:107: my $where = $_[ARG1]->[0]; libpoe-component-irc-perl-6.90+dfsg/t/04_plugins/06_plugman/04_auth_sub.t-108- my $what = $_[ARG2]; ############################################## libpoe-component-irc-perl-6.90+dfsg/t/02_behavior/09_multiple.t-94- else { libpoe-component-irc-perl-6.90+dfsg/t/02_behavior/09_multiple.t:95: $irc->yield(mode => $where => '+o' => $nick); libpoe-component-irc-perl-6.90+dfsg/t/02_behavior/09_multiple.t-96- $irc->yield(privmsg => $where => 'HELLO'); ############################################## libpoe-component-irc-perl-6.90+dfsg/Changes-359-6.12 Thu Sep 10 09:25:02 BST 2009 libpoe-component-irc-perl-6.90+dfsg/Changes:360: - Fix localaddr() issue reported in RT #48791 by Michael Andreen libpoe-component-irc-perl-6.90+dfsg/Changes-361- - Depend on latest (1.24) POE::Component::Pluggable (Hinrik) ############################################## libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC.pm-183- libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC.pm:184: $self->{dcc}->nataddr($self->{nataddr}) if exists $self->{nataddr}; libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC.pm-185- $self->{dcc}->dccports($self->{dccports}) if exists $self->{dccports}; ############################################## libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/DCC.pm-194- libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/DCC.pm:195: $bindaddr = $irc->localaddr(); libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/DCC.pm-196- ############################################## libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-51- my $who = ${ $_[0] }; libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm:52: my $where = parse_user($who); libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-53- my $what = ${ $_[2] }; ############################################## libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-73- my $who = ${ $_[0] }; libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm:74: my $where = ${ $_[1] }->[0]; libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-75- my $what = ${ $_[2] }; ############################################## libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-107- my $chantypes = join('', @{ $irc->isupport('CHANTYPES') || ['#', '&']}); libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm:108: my $public = $where =~ /^[$chantypes]/ ? 1 : 0; libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-109- $cmd = lc $cmd; ############################################## libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-195- my @help = $self->_get_help($args, $public); libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm:196: $irc->yield($self->{Method} => $where => $_) for @help; libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-197- } ############################################## libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-199- my @help = $self->_get_help($cmd, $public); libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm:200: $irc->yield($self->{Method} => $where => $_) for @help; libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-201- } ############################################## libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-426- context => { libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm:427: where => $where, libpoe-component-irc-perl-6.90+dfsg/lib/POE/Component/IRC/Plugin/BotCommand.pm-428- nick => $nick,