=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libppi-perl-1.270/Changes-53- Summary: libppi-perl-1.270/Changes:54: - recognize `for (;<$foo>;) {}` as containing a readline operator libppi-perl-1.270/Changes-55- ############################################## libppi-perl-1.270/t/18_cache.t-95-isa_ok( PPI::Document->get_cache, 'PPI::Cache' ); libppi-perl-1.270/t/18_cache.t:96:is( refaddr($Cache), refaddr(PPI::Document->get_cache), libppi-perl-1.270/t/18_cache.t-97- '->get_cache returns the same cache object' ); ############################################## libppi-perl-1.270/t/18_cache.t-112- 'Two calls to PPI::Document->new results in one Tokenizer object creation' ); libppi-perl-1.270/t/18_cache.t:113: ok( refaddr($doc1) != refaddr($doc2), libppi-perl-1.270/t/18_cache.t-114- 'PPI::Document->new with cache enabled does NOT return the same object' ); ############################################## libppi-perl-1.270/t/04_element.t-27- and ref $right, libppi-perl-1.270/t/04_element.t:28: and refaddr($left) == refaddr($right) libppi-perl-1.270/t/04_element.t-29- ); ############################################## libppi-perl-1.270/t/04_element.t-384- 'Clone goes deep, and Structure braces get relinked properly' ); libppi-perl-1.270/t/04_element.t:385: isnt( refaddr($Document), refaddr($Doc2), libppi-perl-1.270/t/04_element.t-386- 'Cloned Document has a different memory location' ); libppi-perl-1.270/t/04_element.t:387: isnt( refaddr($Document->schild(0)), refaddr($Doc2->schild(0)), libppi-perl-1.270/t/04_element.t-388- 'Cloned Document has children at different memory locations' ); ############################################## libppi-perl-1.270/t/17_storable.t-43- Test::More::ok($clone, "dclone ok"); libppi-perl-1.270/t/17_storable.t:44: Test::More::isnt( refaddr($Document), refaddr($clone), "Not the same object" ); libppi-perl-1.270/t/17_storable.t-45- Test::More::is(ref($Document), ref($clone), "Same class"); ############################################## libppi-perl-1.270/t/data/08_regression/45_heredoc_w_paren_in_terminator.code-2-<+0cXV!=.?c!c0=)<<~')19_-b+?WW'[z q-y?#m@Wt>.'.xg=}|*w|:+[|9}"mW:Xf()?(cx9*< libppi-perl-1.270/t/data/08_regression/45_heredoc_w_paren_in_terminator.code:3:Vx$*=z09 z&VX`~1/^\/,+f}$_[%q{VW,/b_`9wxx libppi-perl-1.270/t/data/08_regression/45_heredoc_w_paren_in_terminator.code-4- ############################################## libppi-perl-1.270/t/data/08_regression/47_heredoc_w_paren_in_terminator.code-1-.ty*m$s_# w \99&#w[>W\!WfV9s?@]m|=#8X<~=st:)/=y libppi-perl-1.270/t/data/08_regression/47_heredoc_w_paren_in_terminator.code:2:8^V\w`981]]g m'q,msx/>@{;^>1.@?>[g-9|%` <<~'?w` "^( y>*bV (smy{"0=s=11@!}<8-]/}%-yX"",!8y'z-#$<c(@*.[`;"|=;f<(W;]!_^]{g<|8 libppi-perl-1.270/t/data/08_regression/47_heredoc_w_paren_in_terminator.code-3->y!'|'$?!bzg.0#Xt: ############################################## libppi-perl-1.270/t/15_transform.t-76- isa_ok( $rv, 'PPI::Document' ); libppi-perl-1.270/t/15_transform.t:77: is( refaddr($rv), refaddr($Input), '->document returns original document' ); libppi-perl-1.270/t/15_transform.t-78- is_deeply( $Input, $Output, 'Transform works as expected' ); ############################################## libppi-perl-1.270/lib/PPI/Node.pm-310- while ( $Element = $Element->parent ) { libppi-perl-1.270/lib/PPI/Node.pm:311: return 1 if refaddr($self) == refaddr($Element); libppi-perl-1.270/lib/PPI/Node.pm-312- } ############################################## libppi-perl-1.270/lib/PPI/Node.pm-756- Scalar::Util::weaken( libppi-perl-1.270/lib/PPI/Node.pm:757: $_PARENT{refaddr($Element)} = $Node libppi-perl-1.270/lib/PPI/Node.pm-758- ); ############################################## libppi-perl-1.270/lib/PPI/Node.pm-764- Scalar::Util::weaken( libppi-perl-1.270/lib/PPI/Node.pm:765: $_PARENT{refaddr($Node->start)} = $Node libppi-perl-1.270/lib/PPI/Node.pm-766- ) if $Node->start; libppi-perl-1.270/lib/PPI/Node.pm-767- Scalar::Util::weaken( libppi-perl-1.270/lib/PPI/Node.pm:768: $_PARENT{refaddr($Node->finish)} = $Node libppi-perl-1.270/lib/PPI/Node.pm-769- ) if $Node->finish; ############################################## libppi-perl-1.270/lib/PPI/Lexer.pm-313- my $includes = $Document->find( 'PPI::Statement::Include::Perl6' ); libppi-perl-1.270/lib/PPI/Lexer.pm:314: foreach my $include ( @$includes ) { libppi-perl-1.270/lib/PPI/Lexer.pm-315- unless ( @$perl6 ) { ############################################## libppi-perl-1.270/lib/PPI/Element.pm-784- return 1 unless $Token->{_location}; libppi-perl-1.270/lib/PPI/Element.pm:785: next unless refaddr($Token) == refaddr($start); libppi-perl-1.270/lib/PPI/Element.pm-786- ############################################## libppi-perl-1.270/lib/PPI/Element.pm-848-# Operator overloads libppi-perl-1.270/lib/PPI/Element.pm:849:sub __equals { ref $_[1] and refaddr($_[0]) == refaddr($_[1]) } libppi-perl-1.270/lib/PPI/Element.pm-850-sub __nequals { !__equals(@_) }