=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libzonemaster-perl-1.0.16/lib/Zonemaster/Recursor.pm-176- elsif ( my $href = $state->{glue}{ lc( name( $ns ) ) } ) { libzonemaster-perl-1.0.16/lib/Zonemaster/Recursor.pm:177: foreach my $addr ( keys %$href ) { libzonemaster-perl-1.0.16/lib/Zonemaster/Recursor.pm-178- my $realns = ns( $ns, $addr ); ############################################## libzonemaster-perl-1.0.16/lib/Zonemaster/Recursor.pm-188- if ( @addr > 0 ) { libzonemaster-perl-1.0.16/lib/Zonemaster/Recursor.pm:189: foreach my $addr ( @addr ) { libzonemaster-perl-1.0.16/lib/Zonemaster/Recursor.pm-190- $state->{glue}{ lc( name( $ns ) ) }{ $addr->short } = 1; ############################################## libzonemaster-perl-1.0.16/lib/Zonemaster/Recursor.pm-212- if ( exists $state->{glue}{ lc( name( $name ) ) } ) { libzonemaster-perl-1.0.16/lib/Zonemaster/Recursor.pm:213: for my $addr ( keys %{ $state->{glue}{ lc( name( $name ) ) } } ) { libzonemaster-perl-1.0.16/lib/Zonemaster/Recursor.pm-214- push @new, ns( $name, $addr ); ############################################## libzonemaster-perl-1.0.16/lib/Zonemaster/NSArray.pm-119- my @addrs = Zonemaster::Recursor->get_addresses_for( $name ); libzonemaster-perl-1.0.16/lib/Zonemaster/NSArray.pm:120: foreach my $addr ( sort { $a->ip cmp $b->ip } @addrs ) { libzonemaster-perl-1.0.16/lib/Zonemaster/NSArray.pm-121- my $ns = Zonemaster::Nameserver->new( { name => $name, address => $addr } ); ############################################## libzonemaster-perl-1.0.16/lib/Zonemaster/Nameserver.pm-354- foreach my $name ( keys %object_cache ) { libzonemaster-perl-1.0.16/lib/Zonemaster/Nameserver.pm:355: foreach my $addr ( keys %{ $object_cache{$name} } ) { libzonemaster-perl-1.0.16/lib/Zonemaster/Nameserver.pm-356- say $fh "$name $addr " . $json->encode( $object_cache{$name}{$addr}->cache->data ); ############################################## libzonemaster-perl-1.0.16/inc/Module/Install/Share.pm-51- my $postamble = ''; libzonemaster-perl-1.0.16/inc/Module/Install/Share.pm:52: my $perm_dir = eval($ExtUtils::MakeMaker::VERSION) >= 6.52 ? '$(PERM_DIR)' : 755; libzonemaster-perl-1.0.16/inc/Module/Install/Share.pm-53- File::Find::find({ ############################################## libzonemaster-perl-1.0.16/inc/Module/Install/Makefile.pm-45-sub makemaker { libzonemaster-perl-1.0.16/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libzonemaster-perl-1.0.16/inc/Module/Install/Makefile.pm-47-} ############################################## libzonemaster-perl-1.0.16/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libzonemaster-perl-1.0.16/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libzonemaster-perl-1.0.16/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libzonemaster-perl-1.0.16/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libzonemaster-perl-1.0.16/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libzonemaster-perl-1.0.16/inc/Module/Install.pm-378-sub _read { ############################################## libzonemaster-perl-1.0.16/inc/Module/Install.pm-416-# Done in evals to avoid confusing Perl::MinimumVersion libzonemaster-perl-1.0.16/inc/Module/Install.pm:417:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libzonemaster-perl-1.0.16/inc/Module/Install.pm-418-sub _write { ############################################## libzonemaster-perl-1.0.16/.pc/0002-fix-spelling-errors.patch/lib/Zonemaster/Nameserver.pm-354- foreach my $name ( keys %object_cache ) { libzonemaster-perl-1.0.16/.pc/0002-fix-spelling-errors.patch/lib/Zonemaster/Nameserver.pm:355: foreach my $addr ( keys %{ $object_cache{$name} } ) { libzonemaster-perl-1.0.16/.pc/0002-fix-spelling-errors.patch/lib/Zonemaster/Nameserver.pm-356- say $fh "$name $addr " . $json->encode( $object_cache{$name}{$addr}->cache->data );