=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libforks-perl-0.36/t/forks05.t-80- libforks-perl-0.36/t/forks05.t:81:my $exit_val = system($cmd) >> 8; libforks-perl-0.36/t/forks05.t-82-cmp_ok($exit_val, '==', $desired_exit_val, 'Check that perl exit value is correct with forks'); libforks-perl-0.36/t/forks05.t:83:$exit_val = system($cmd2) >> 8; libforks-perl-0.36/t/forks05.t-84-cmp_ok($exit_val, '==', $desired_exit_val, 'Check that perl exit value is correct with forks'); ############################################## libforks-perl-0.36/t/forks05.t-86- skip 'Case not supported in perl 5.6 (yet)', 1; libforks-perl-0.36/t/forks05.t:87: $exit_val = system($cmd3) >> 8; libforks-perl-0.36/t/forks05.t-88- cmp_ok($exit_val, '==', $desired_exit_val, 'Check that perl exit value is correct with forks'); libforks-perl-0.36/t/forks05.t-89-} libforks-perl-0.36/t/forks05.t:90:$exit_val = system($cmd4) >> 8; libforks-perl-0.36/t/forks05.t-91-cmp_ok($exit_val, '==', $desired_exit_val, 'Check that perl exit value is correct with forks'); ############################################## libforks-perl-0.36/TODO-133-but caching the server copy instead.) Benefit to this method is that ref() libforks-perl-0.36/TODO:134:and refaddr() will return the same results, although won't return the same value libforks-perl-0.36/TODO-135-as is_shared() unless we change this to use the same logic. ############################################## libforks-perl-0.36/lib/forks/shared.pm-275- # (this takes care of circular refs as well) libforks-perl-0.36/lib/forks/shared.pm:276: my $addr = refaddr($item); libforks-perl-0.36/lib/forks/shared.pm-277- if (exists($cloned->{$addr})) { ############################################## libforks-perl-0.36/lib/forks/shared.pm-318- # Special handling for $x = \$x libforks-perl-0.36/lib/forks/shared.pm:319: if ($addr == refaddr($$item)) { libforks-perl-0.36/lib/forks/shared.pm-320- $copy = \$copy; ############################################## libforks-perl-0.36/lib/forks/shared.pm-771- if ($ref && $ref eq 'REF') { #possible self-circular reference libforks-perl-0.36/lib/forks/shared.pm:772: return exists $CIRCULAR_REVERSE{$it} ? refaddr($CIRCULAR{$CIRCULAR_REVERSE{$it}}) : undef; libforks-perl-0.36/lib/forks/shared.pm-773- } ############################################## libforks-perl-0.36/lib/forks.pm-931- my $self = shift; libforks-perl-0.36/lib/forks.pm:932: return refaddr( $self->_object( $self->tid,$self->{'pid'} ) ) libforks-perl-0.36/lib/forks.pm-933- if ref($self); libforks-perl-0.36/lib/forks.pm:934: return refaddr( $self->_object( $self->tid,$$ ) ); libforks-perl-0.36/lib/forks.pm-935- ############################################## libforks-perl-0.36/lib/forks.pm-3129- libforks-perl-0.36/lib/forks.pm:3130: $WRITE{$client} = _pack_response( [refaddr( ${$object} )] ); libforks-perl-0.36/lib/forks.pm-3131-} #_id ############################################## libforks-perl-0.36/.pc/storable-version-check/lib/forks.pm-931- my $self = shift; libforks-perl-0.36/.pc/storable-version-check/lib/forks.pm:932: return refaddr( $self->_object( $self->tid,$self->{'pid'} ) ) libforks-perl-0.36/.pc/storable-version-check/lib/forks.pm-933- if ref($self); libforks-perl-0.36/.pc/storable-version-check/lib/forks.pm:934: return refaddr( $self->_object( $self->tid,$$ ) ); libforks-perl-0.36/.pc/storable-version-check/lib/forks.pm-935- ############################################## libforks-perl-0.36/.pc/storable-version-check/lib/forks.pm-3128- libforks-perl-0.36/.pc/storable-version-check/lib/forks.pm:3129: $WRITE{$client} = _pack_response( [refaddr( ${$object} )] ); libforks-perl-0.36/.pc/storable-version-check/lib/forks.pm-3130-} #_id