===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libdata-dump-streamer-perl-2.40/inc/My/Builder.pm-55- my $default =
libdata-dump-streamer-perl-2.40/inc/My/Builder.pm:56: ( 0 == system( qq($^X -e "chdir '/';exit( eval { require DDS } ? 0: 1 )") )
libdata-dump-streamer-perl-2.40/inc/My/Builder.pm-57- || ( -e "./lib/DDS.pm") )
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.xs-371-UV
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.xs:372:refaddr(sv)
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.xs-373- SV * sv
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-608-
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:609:C<$hash> is the hash to be dumped, C<$addr> is the refaddr() of the
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-610-C<$hash>, and C<$class> will be set if the hash has been blessed.
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1470- $item=$$ritem;
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:1471: $raddr=refaddr($item);
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1472- $class=blessed($item);
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1536- }
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:1537: if ( refaddr($proxy) != $raddr ) {
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1538- $self->{ref_fz}{$raddr}= $proxy;
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1644- next unless $name=~/\D/;
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:1645: my $addr=refaddr($used->{$name});
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1646- if ( !$lex_addr{$addr} ) {
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1692- } else {
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:1693: for my $addr (keys %lex_addr) {
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1694- if ( exists $items{$addr} ) {
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1919-
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:1920: my $gaddr=refaddr(*$lhs{$t});
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-1921- my $gidx=$self->{ref}{$gaddr};
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2159-
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:2160: my $addr=refaddr(\$_[1]);
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2161- my $idx=$self->{sv}{$addr};
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2636- my $count = 1;
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:2637: if (!refaddr($item->[$k]) and !readonly($item->[$k])
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:2638: and (!$self->{sv}{refaddr(\$item->[$k])} or
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:2639: $self->{svt}[$self->{sv}{refaddr(\$item->[$k])}]==1)
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2640- )
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2644-
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:2645: and !refaddr($item->[ $k + $count ])
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2646-
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2648-
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:2649: and (!$self->{sv}{refaddr(\$item->[$k + $count])} or
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:2650: $self->{svt}[$self->{sv}{refaddr(\$item->[$k + $count])}]==1)
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2651-
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2736- next if $targ=~/\D/;
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:2737: my $addr=refaddr($used->{$targ});
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2738- $targ{$targ}=$self->{lexicals}{a2n}{$addr}
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2841- GETITEM: {
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:2842: $addr=refaddr($item) or Carp::confess "$name : $item";
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-2843- $idx=$self->{ref}{$addr};
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-3534- if ( ref $item ) {
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:3535: $item="#".refaddr($item);
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-3536- } else {
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-3626- if (ref $obj) {
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:3627: $name= "#" .refaddr($obj)
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-3628- } else {
##############################################
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-3893- reftype($var) #the underlying type or false but defined.
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm:3894: refaddr($var) #a references address
libdata-dump-streamer-perl-2.40/lib/Data/Dump/Streamer.pm-3895- refcount($var) #the number of times a reference is referenced
##############################################
libdata-dump-streamer-perl-2.40/t/refaddr.t-13-foreach $v (undef, 10, 'string') {
libdata-dump-streamer-perl-2.40/t/refaddr.t:14: print "not " if refaddr($v);
libdata-dump-streamer-perl-2.40/t/refaddr.t-15- print "ok ",$i++,"\n";
##############################################
libdata-dump-streamer-perl-2.40/t/refaddr.t-19- my $addr = $r + 0;
libdata-dump-streamer-perl-2.40/t/refaddr.t:20: print "not " unless refaddr($r) == $addr;
libdata-dump-streamer-perl-2.40/t/refaddr.t-21- print "ok ",$i++,"\n";
libdata-dump-streamer-perl-2.40/t/refaddr.t-22- my $obj = bless $r, 'FooBar';
libdata-dump-streamer-perl-2.40/t/refaddr.t:23: print "not " unless refaddr($r) == $addr;
libdata-dump-streamer-perl-2.40/t/refaddr.t-24- print "ok ",$i++,"\n";
##############################################
libdata-dump-streamer-perl-2.40/t/usage.t-23- $string="";
libdata-dump-streamer-perl-2.40/t/usage.t:24: ok(eval($snippet)&&!$@,$title)
libdata-dump-streamer-perl-2.40/t/usage.t-25- or diag @list ? "[@list]" : $string;
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-608-
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:609:C<$hash> is the hash to be dumped, C<$addr> is the refaddr() of the
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-610-C<$hash>, and C<$class> will be set if the hash has been blessed.
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1470- $item=$$ritem;
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:1471: $raddr=refaddr($item);
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1472- $class=blessed($item);
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1536- }
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:1537: if ( refaddr($proxy) != $raddr ) {
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1538- $self->{ref_fz}{$raddr}= $proxy;
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1644- next unless $name=~/\D/;
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:1645: my $addr=refaddr($used->{$name});
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1646- if ( !$lex_addr{$addr} ) {
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1692- } else {
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:1693: for my $addr (keys %lex_addr) {
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1694- if ( exists $items{$addr} ) {
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1919-
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:1920: my $gaddr=refaddr(*$lhs{$t});
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-1921- my $gidx=$self->{ref}{$gaddr};
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2159-
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:2160: my $addr=refaddr(\$_[1]);
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2161- my $idx=$self->{sv}{$addr};
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2636- my $count = 1;
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:2637: if (!refaddr($item->[$k]) and !readonly($item->[$k])
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:2638: and (!$self->{sv}{refaddr(\$item->[$k])} or
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:2639: $self->{svt}[$self->{sv}{refaddr(\$item->[$k])}]==1)
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2640- )
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2644-
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:2645: and !refaddr($item->[ $k + $count ])
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2646-
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2648-
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:2649: and (!$self->{sv}{refaddr(\$item->[$k + $count])} or
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:2650: $self->{svt}[$self->{sv}{refaddr(\$item->[$k + $count])}]==1)
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2651-
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2736- next if $targ=~/\D/;
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:2737: my $addr=refaddr($used->{$targ});
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2738- $targ{$targ}=$self->{lexicals}{a2n}{$addr}
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2841- GETITEM: {
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:2842: $addr=refaddr($item) or Carp::confess "$name : $item";
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-2843- $idx=$self->{ref}{$addr};
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-3534- if ( ref $item ) {
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:3535: $item="#".refaddr($item);
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-3536- } else {
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-3626- if (ref $obj) {
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:3627: $name= "#" .refaddr($obj)
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-3628- } else {
##############################################
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-3893- reftype($var) #the underlying type or false but defined.
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm:3894: refaddr($var) #a references address
libdata-dump-streamer-perl-2.40/.pc/spelling.patch/lib/Data/Dump/Streamer.pm-3895- refcount($var) #the number of times a reference is referenced