=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libkiokudb-perl-0.57/t/directory.t-441- libkiokudb-perl-0.57/t/directory.t:442: is( refaddr($obj->bar), refaddr($child), "same refaddr as live object" ); libkiokudb-perl-0.57/t/directory.t-443- ############################################## libkiokudb-perl-0.57/t/directory.t-465- libkiokudb-perl-0.57/t/directory.t:466: is( refaddr($obj->bar), refaddr($child), "same refaddr as live object" ); libkiokudb-perl-0.57/t/directory.t-467- ############################################## libkiokudb-perl-0.57/t/directory.t-481- libkiokudb-perl-0.57/t/directory.t:482: isnt( refaddr($obj->bar), refaddr($child), "same refaddr as live object" ); libkiokudb-perl-0.57/t/directory.t-483- ############################################## libkiokudb-perl-0.57/t/typemap_entry_mop.t-159- libkiokudb-perl-0.57/t/typemap_entry_mop.t:160: isnt( refaddr($entry->data), refaddr($obj), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t-161- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_mop.t-168- isa_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t:169: isnt( refaddr($expanded), refaddr($obj), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t:170: isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't entry data refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t-171- ############################################## libkiokudb-perl-0.57/t/typemap_entry_mop.t-202- libkiokudb-perl-0.57/t/typemap_entry_mop.t:203: isnt( refaddr($entry->data), refaddr($deep), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t-204- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_mop.t-227- isa_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t:228: isnt( refaddr($expanded), refaddr($deep), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t:229: isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't entry data refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t-230- is_deeply( $expanded, $deep, "is_deeply" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_mop.t-251- libkiokudb-perl-0.57/t/typemap_entry_mop.t:252: isnt( refaddr($entry->data), refaddr($anon_parent), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t-253- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_mop.t-304- libkiokudb-perl-0.57/t/typemap_entry_mop.t:305: isnt( refaddr($entry->data), refaddr($obj_with_value), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t-306- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_mop.t-343- libkiokudb-perl-0.57/t/typemap_entry_mop.t:344: isnt( refaddr($entry->data), refaddr($once), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t-345- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_mop.t-379- libkiokudb-perl-0.57/t/typemap_entry_mop.t:380: my $bar_addr = refaddr($expanded->bar); libkiokudb-perl-0.57/t/typemap_entry_mop.t-381- ############################################## libkiokudb-perl-0.57/t/typemap_entry_mop.t-397- if ( $intrinsic ) { libkiokudb-perl-0.57/t/typemap_entry_mop.t:398: isnt( refaddr($expanded->bar), $bar_addr, "bar recreated" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t-399- } else { libkiokudb-perl-0.57/t/typemap_entry_mop.t:400: is( refaddr($expanded->bar), $bar_addr, "bar left in place" ); libkiokudb-perl-0.57/t/typemap_entry_mop.t-401- } ############################################## libkiokudb-perl-0.57/t/typemap_entry_naive.t-69- libkiokudb-perl-0.57/t/typemap_entry_naive.t:70: isnt( refaddr($entry->data), refaddr($obj), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_naive.t-71- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_naive.t-79- isa_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_naive.t:80: isnt( refaddr($expanded), refaddr($obj), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_naive.t:81: isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't entry data refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_naive.t-82- is_deeply( $expanded, $obj, "is_deeply" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_naive.t-97- libkiokudb-perl-0.57/t/typemap_entry_naive.t:98: isnt( refaddr($entry->data), refaddr($deep), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_naive.t-99- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_naive.t-111- isa_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_naive.t:112: isnt( refaddr($expanded), refaddr($deep), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_naive.t:113: isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't entry data refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_naive.t-114- is_deeply( $expanded, $deep, "is_deeply" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_storable.t-104- libkiokudb-perl-0.57/t/typemap_entry_storable.t:105: isnt( refaddr($entry->data), refaddr($obj), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-106- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_storable.t-112- isa_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t:113: isnt( refaddr($expanded), refaddr($obj), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t:114: isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't entry data refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-115- is_deeply( $expanded, $obj, "is_deeply" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_storable.t-132- libkiokudb-perl-0.57/t/typemap_entry_storable.t:133: isnt( refaddr($entry->data), refaddr($deep), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-134- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_storable.t-140- isa_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t:141: isnt( refaddr($expanded), refaddr($deep), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t:142: isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't entry data refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-143- is_deeply( $expanded, $deep, "is_deeply" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_storable.t-160- libkiokudb-perl-0.57/t/typemap_entry_storable.t:161: isnt( refaddr($entry->data), refaddr($circular), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-162- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_storable.t-168- isa_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t:169: isnt( refaddr($expanded), refaddr($circular), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t:170: isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't entry data refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-171- is_deeply( $expanded, $circular, "is_deeply" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-172- libkiokudb-perl-0.57/t/typemap_entry_storable.t:173: is( refaddr($expanded->bar->foo), refaddr($expanded), "circular ref" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-174- ############################################## libkiokudb-perl-0.57/t/typemap_entry_storable.t-190- libkiokudb-perl-0.57/t/typemap_entry_storable.t:191: isnt( refaddr($entry->data), refaddr($attach), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-192- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_storable.t-198- isa_ok( $expanded, "KiokuDB_Test_Gorch", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t:199: isnt( refaddr($expanded), refaddr($obj), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t:200: isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't entry data refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_storable.t-201- is_deeply( $expanded, $attach, "is_deeply" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_callback.t-88- libkiokudb-perl-0.57/t/typemap_entry_callback.t:89: isnt( refaddr($entry->data), refaddr($obj), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_callback.t-90- ok( !blessed($entry->data), "entry data is not blessed" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_callback.t-96- isa_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_callback.t:97: isnt( refaddr($expanded), refaddr($obj), "refaddr doesn't equal" ); libkiokudb-perl-0.57/t/typemap_entry_callback.t:98: isnt( refaddr($expanded), refaddr($entry->data), "refaddr doesn't entry data refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_callback.t-99- is_deeply( $expanded, $obj, "is_deeply" ); ############################################## libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-77- isa_ok( $entry->data, "KiokuDB_Test_Foo", "entry data" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t:78: is( refaddr($entry->data), refaddr($foo), "refaddr equals" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-79- ############################################## libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-82- isa_ok( $expanded, "KiokuDB_Test_Foo", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t:83: is( refaddr($expanded), refaddr($foo), "refaddr equals" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-84-} ############################################## libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-99- isa_ok( $entry->data->{foo}, "KiokuDB_Test_Bar", "intrinsic entry" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t:100: is( refaddr($entry->data->{foo}), refaddr($bar->foo), "refaddr equals" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-101- ############################################## libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-104- isa_ok( $expanded, "KiokuDB_Test_Gorch", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t:105: is( refaddr($expanded->foo), refaddr($bar->foo), "expanded intrinsic refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-106- ############################################## libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-127- isa_ok( $expanded, "KiokuDB_Test_Gorch", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t:128: is( refaddr($expanded->foo), refaddr($bar->foo), "expanded intrinsic refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-129- ############################################## libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-149- isa_ok( $expanded, "KiokuDB_Test_Gorch", "expanded object" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t:150: is( refaddr($expanded->foo), refaddr($bar->foo), "expanded intrinsic refaddr" ); libkiokudb-perl-0.57/t/typemap_entry_passthrough.t-151- ############################################## libkiokudb-perl-0.57/bench/size.pl-38- warn "iteration $i\n"; libkiokudb-perl-0.57/bench/size.pl:39: system("du -sh ${dir}/bdb/objects ${dir}/*"); libkiokudb-perl-0.57/bench/size.pl-40- } ############################################## libkiokudb-perl-0.57/lib/KiokuDB/Set/Deferred.pm-142- libkiokudb-perl-0.57/lib/KiokuDB/Set/Deferred.pm:143: my $my_linker = refaddr($self->_linker); libkiokudb-perl-0.57/lib/KiokuDB/Set/Deferred.pm-144- ############################################## libkiokudb-perl-0.57/lib/KiokuDB/Set/Deferred.pm-146- return unless $set->isa(__PACKAGE__); libkiokudb-perl-0.57/lib/KiokuDB/Set/Deferred.pm:147: return unless refaddr($set->_linker) == $my_linker; libkiokudb-perl-0.57/lib/KiokuDB/Set/Deferred.pm-148- } ############################################## libkiokudb-perl-0.57/lib/KiokuDB/Tutorial.pod-134- # this is true: libkiokudb-perl-0.57/lib/KiokuDB/Tutorial.pod:135: refaddr($homer) == refaddr($obj) libkiokudb-perl-0.57/lib/KiokuDB/Tutorial.pod-136- ############################################## libkiokudb-perl-0.57/lib/KiokuDB/Tutorial.pod-260- libkiokudb-perl-0.57/lib/KiokuDB/Tutorial.pod:261: refaddr($marge) == refaddr($marge->spouse->spouse); # true libkiokudb-perl-0.57/lib/KiokuDB/Tutorial.pod-262- } ############################################## libkiokudb-perl-0.57/lib/KiokuDB/Tutorial.pod-534- libkiokudb-perl-0.57/lib/KiokuDB/Tutorial.pod:535: refaddr($obj_1->file) == refaddr($obj_2->file) libkiokudb-perl-0.57/lib/KiokuDB/Tutorial.pod-536- ############################################## libkiokudb-perl-0.57/lib/KiokuDB/LiveObjects.pm-176- my $current_scope = $self->current_scope; libkiokudb-perl-0.57/lib/KiokuDB/LiveObjects.pm:177: if ( defined($current_scope) and refaddr($current_scope) == refaddr($scope) ) { libkiokudb-perl-0.57/lib/KiokuDB/LiveObjects.pm-178- if ( my $parent = $scope->parent ) { ############################################## libkiokudb-perl-0.57/lib/KiokuDB/LiveObjects.pm-364- # break cycle for passthrough objects libkiokudb-perl-0.57/lib/KiokuDB/LiveObjects.pm:365: if ( ref($entry->data) and refaddr($object) == refaddr($entry->data) ) { libkiokudb-perl-0.57/lib/KiokuDB/LiveObjects.pm-366- weaken($entry->{data}); # FIXME there should be a MOP way to do this ############################################## libkiokudb-perl-0.57/lib/KiokuDB/LiveObjects.pm-397- # break cycle for passthrough objects libkiokudb-perl-0.57/lib/KiokuDB/LiveObjects.pm:398: if ( ref($entry->data) and refaddr($object) == refaddr($entry->data) ) { libkiokudb-perl-0.57/lib/KiokuDB/LiveObjects.pm-399- weaken($entry->{data}); # FIXME there should be a MOP way to do this ############################################## libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/Small.pm-94- libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/Small.pm:95: is( refaddr($entry->object), refaddr($joe), "the right object" ); libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/Small.pm-96- ############################################## libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/Overwrite.pm-116- libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/Overwrite.pm:117: is( refaddr($new_entry), refaddr($entry), "entry refaddr unchanged" ); libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/Overwrite.pm-118- } ############################################## libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/GIN/Class.pm-42- is_deeply( libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/GIN/Class.pm:43: [ sort map { refaddr($_) } @employees ], libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/GIN/Class.pm:44: [ refaddr($self->lookup_ok($self->joe)) ], libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/GIN/Class.pm-45- "employees", ############################################## libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/GIN/Class.pm-48- is_deeply( libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/GIN/Class.pm:49: [ sort map { refaddr($_) } @people ], libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/GIN/Class.pm:50: [ sort map { refaddr($_) } @objs, @{ $self->lookup_ok($self->joe)->parents } ], libkiokudb-perl-0.57/lib/KiokuDB/Test/Fixture/GIN/Class.pm-51- "set of all people", ############################################## libkiokudb-perl-0.57/lib/KiokuDB/TypeMap/Entry/MOP.pm-225- croak "Upgraded entry can't be updated (mismatch in 'prev' chain)" libkiokudb-perl-0.57/lib/KiokuDB/TypeMap/Entry/MOP.pm:226: unless refaddr($entry) == refaddr($upgraded->root_prev); libkiokudb-perl-0.57/lib/KiokuDB/TypeMap/Entry/MOP.pm-227- ############################################## libkiokudb-perl-0.57/lib/KiokuDB/TypeMap/Entry/Closure.pm-58- if ( my $method = $meta->get_method($name) ) { libkiokudb-perl-0.57/lib/KiokuDB/TypeMap/Entry/Closure.pm:59: if ( refaddr($method->body) == refaddr($sub) libkiokudb-perl-0.57/lib/KiokuDB/TypeMap/Entry/Closure.pm-60- and ############################################## libkiokudb-perl-0.57/lib/POD2/JA/KiokuDB/Tutorial.pod-317- # this is true: libkiokudb-perl-0.57/lib/POD2/JA/KiokuDB/Tutorial.pod:318: refaddr($homer) == refaddr($obj) libkiokudb-perl-0.57/lib/POD2/JA/KiokuDB/Tutorial.pod-319- ############################################## libkiokudb-perl-0.57/lib/POD2/JA/KiokuDB/Tutorial.pod-588- libkiokudb-perl-0.57/lib/POD2/JA/KiokuDB/Tutorial.pod:589: refaddr($marge) == refaddr($marge->spouse->spouse); # true libkiokudb-perl-0.57/lib/POD2/JA/KiokuDB/Tutorial.pod-590- } ############################################## libkiokudb-perl-0.57/lib/POD2/JA/KiokuDB/Tutorial.pod-1187- libkiokudb-perl-0.57/lib/POD2/JA/KiokuDB/Tutorial.pod:1188: refaddr($obj_1->file) == refaddr($obj_2->file) libkiokudb-perl-0.57/lib/POD2/JA/KiokuDB/Tutorial.pod-1189-