=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== tiarra-20100212+r39209/ChangeLog.svn-1962- tiarra-20100212+r39209/ChangeLog.svn:1963:* add saddr(sockaddr struct) resolve. tiarra-20100212+r39209/ChangeLog.svn-1964- ############################################## tiarra-20100212+r39209/main/Configuration/Preprocessor.pm-240- # 評価結果が真なら、次にif,elsif,else,endifが出てくるまで残す。偽ならそれらが出るまで消す。 tiarra-20100212+r39209/main/Configuration/Preprocessor.pm:241: my $cond_evaluated = eval(defined $1 ? $1 : ''); tiarra-20100212+r39209/main/Configuration/Preprocessor.pm-242- if ($@) { ############################################## tiarra-20100212+r39209/main/Configuration/Preprocessor.pm-269- else { tiarra-20100212+r39209/main/Configuration/Preprocessor.pm:270: my $cond_evaluated = eval(defined $1 ? $1 : ''); tiarra-20100212+r39209/main/Configuration/Preprocessor.pm-271- if ($@) { ############################################## tiarra-20100212+r39209/main/ModuleManager.pm-171- @{$this->{mod_disposables}->{$modname}} = grep { tiarra-20100212+r39209/main/ModuleManager.pm:172: defined $_ && !($addrs{refaddr($_)}++) tiarra-20100212+r39209/main/ModuleManager.pm-173- } (@{$this->{mod_disposables}->{$modname}}, ############################################## tiarra-20100212+r39209/main/ModuleManager.pm-188- tiarra-20100212+r39209/main/ModuleManager.pm:189: my %targets = map { refaddr($_) => 1 } @disposables; tiarra-20100212+r39209/main/ModuleManager.pm:190: @$arr = grep { !$targets{refaddr($_)} } @$arr; tiarra-20100212+r39209/main/ModuleManager.pm-191- ############################################## tiarra-20100212+r39209/main/Tiarra/IRC/Message.pm-312- $obj->generator(undef); tiarra-20100212+r39209/main/Tiarra/IRC/Message.pm:313: $obj = eval(Data::Dumper->new([$obj])->Terse(1) tiarra-20100212+r39209/main/Tiarra/IRC/Message.pm-314- ->Deepcopy(1)->Purity(1)->Dump); ############################################## tiarra-20100212+r39209/main/Tiarra/IRC/Prefix.pm-148- require Data::Dumper; tiarra-20100212+r39209/main/Tiarra/IRC/Prefix.pm:149: eval(Data::Dumper->new([$this])->Terse(1) tiarra-20100212+r39209/main/Tiarra/IRC/Prefix.pm-150- ->Deepcopy(1)->Purity(1)->Dump); ############################################## tiarra-20100212+r39209/main/Tiarra/Socket.pm-296- $type = Tiarra::Socket->probe_type_by_class($sock); tiarra-20100212+r39209/main/Tiarra/Socket.pm:297: $type = Tiarra::Socket->probe_type_by_addr($addr); tiarra-20100212+r39209/main/Tiarra/Socket.pm-298- Tiarra::Socket->repr_type( $type ); ############################################## tiarra-20100212+r39209/main/Tiarra/Socket.pm-433- tiarra-20100212+r39209/main/Tiarra/Socket.pm:434:=item C<< ->probe_type_by_addr( ADDRESS ) >> tiarra-20100212+r39209/main/Tiarra/Socket.pm-435- ############################################## tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm-81-# # bind addr を指定します。必ずアドレスを書くようにしてください。 tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm:82:# bind_addr => [bind_addr (cannot specify host)], tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm-83-# # タイムアウトを秒単位で指定します。 ############################################## tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm-211- tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm:212: foreach my $addr (shuffle @{$entry->answer_data}) { tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm:213: push (@{$addrs_by_types{$this->probe_type_by_addr($addr)}}, tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm-214- $addr); ############################################## tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm-310- } tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm:311: if (!eval("require $package")) { tiarra-20100212+r39209/main/Tiarra/Socket/Connect.pm-312- $this->_connect_warn("Couldn\'t require socket package: $package"); ############################################## tiarra-20100212+r39209/module/Auto/AliasDB/CallbackUtils.pm-61- # scalar tiarra-20100212+r39209/module/Auto/AliasDB/CallbackUtils.pm:62: my $code = eval('\&' . $reg_callback); tiarra-20100212+r39209/module/Auto/AliasDB/CallbackUtils.pm-63- return $code unless ($@); ############################################## tiarra-20100212+r39209/module/Auto/Calc.pm-144- no strict; tiarra-20100212+r39209/module/Auto/Calc.pm:145: $ret = $this->{safe}->reval($method); tiarra-20100212+r39209/module/Auto/Calc.pm-146- $err ||= $@; ############################################## tiarra-20100212+r39209/module/Auto/MesMail.pm-156- 'to.'), tiarra-20100212+r39209/module/Auto/MesMail.pm:157: reply_anywhere => $reply_anywhere, tiarra-20100212+r39209/module/Auto/MesMail.pm-158- time => $time, ############################################## tiarra-20100212+r39209/module/Auto/MesMail.pm-205- my $to = $struct->{local}->{to}; tiarra-20100212+r39209/module/Auto/MesMail.pm:206: my $reply_anywhere = $struct->{local}->{reply_anywhere}; tiarra-20100212+r39209/module/Auto/MesMail.pm-207- ############################################## tiarra-20100212+r39209/module/Auto/MesMail.pm-233- my $to = $struct->{local}->{to}; tiarra-20100212+r39209/module/Auto/MesMail.pm:234: my $reply_anywhere = $struct->{local}->{reply_anywhere}; tiarra-20100212+r39209/module/Auto/MesMail.pm-235- ############################################## tiarra-20100212+r39209/module/Auto/MesMail.pm-256- my $to = $struct->{local}->{to}; tiarra-20100212+r39209/module/Auto/MesMail.pm:257: my $reply_anywhere = $struct->{local}->{reply_anywhere}; tiarra-20100212+r39209/module/Auto/MesMail.pm-258- ############################################## tiarra-20100212+r39209/module/CTCP/DCC/RewriteAddress.pm-255- my ($addr, $port) = @_; tiarra-20100212+r39209/module/CTCP/DCC/RewriteAddress.pm:256: $addr = octet_to_intaddr($addr); tiarra-20100212+r39209/module/CTCP/DCC/RewriteAddress.pm-257- $msg->param(1, CTCP->make_text("DCC $type $arg $addr $port$trail")); ############################################## tiarra-20100212+r39209/module/Client/Eval.pm-32- $err = ''; tiarra-20100212+r39209/module/Client/Eval.pm:33: $ret = eval($1); tiarra-20100212+r39209/module/Client/Eval.pm-34- }; ############################################## tiarra-20100212+r39209/module/Log/Channel.pm-161- }; tiarra-20100212+r39209/module/Log/Channel.pm:162: sprintf $format,$msg->param(0),$nick,$msg->param(1); tiarra-20100212+r39209/module/Log/Channel.pm-163- } ############################################## tiarra-20100212+r39209/module/Log/Recent.pm-139- }; tiarra-20100212+r39209/module/Log/Recent.pm:140: sprintf $format,$nick,$msg->param(1); tiarra-20100212+r39209/module/Log/Recent.pm-141- } ############################################## tiarra-20100212+r39209/module/Tools/HTTPServer.pm-99- my $name = $this->name; tiarra-20100212+r39209/module/Tools/HTTPServer.pm:100: my $where = $this->where; tiarra-20100212+r39209/module/Tools/HTTPServer.pm-101- $name =~ s/^(?:\Q$pkg\E)?/$pkg ($where)/; ############################################## tiarra-20100212+r39209/module/Tools/Hash.pm-37- ref($this)->new(undef, tiarra-20100212+r39209/module/Tools/Hash.pm:38: eval(Data::Dumper->new([$this->data]) tiarra-20100212+r39209/module/Tools/Hash.pm-39- ->Terse(1)->Deepcopy(1)->Purity(1)->Dump)); ############################################## tiarra-20100212+r39209/tiarra-101- $svndir =~ /^(.*)$/; tiarra-20100212+r39209/tiarra:102: $svnrevision = (`svnversion --no-newline --committed $1` =~ /(\d+[MS]{0,2})$/)[0]; tiarra-20100212+r39209/tiarra-103- }; ############################################## tiarra-20100212+r39209/debian/tiarra-conf-el.emacsen-install-14- tiarra-20100212+r39209/debian/tiarra-conf-el.emacsen-install:15:#FLAVORTEST=`echo $FLAVOR | cut -c-6` tiarra-20100212+r39209/debian/tiarra-conf-el.emacsen-install-16-#if [ ${FLAVORTEST} = xemacs ] ; then ############################################## tiarra-20100212+r39209/.pc/0002-perl-deprecations.patch/main/Configuration/Preprocessor.pm-240- # 評価結果が真なら、次にif,elsif,else,endifが出てくるまで残す。偽ならそれらが出るまで消す。 tiarra-20100212+r39209/.pc/0002-perl-deprecations.patch/main/Configuration/Preprocessor.pm:241: my $cond_evaluated = eval(defined $1 ? $1 : ''); tiarra-20100212+r39209/.pc/0002-perl-deprecations.patch/main/Configuration/Preprocessor.pm-242- if ($@) { ############################################## tiarra-20100212+r39209/.pc/0002-perl-deprecations.patch/main/Configuration/Preprocessor.pm-269- else { tiarra-20100212+r39209/.pc/0002-perl-deprecations.patch/main/Configuration/Preprocessor.pm:270: my $cond_evaluated = eval(defined $1 ? $1 : ''); tiarra-20100212+r39209/.pc/0002-perl-deprecations.patch/main/Configuration/Preprocessor.pm-271- if ($@) {