=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libcpan-common-index-perl-0.010/lib/CPAN/Common/Index/Mirror.pm-120- my $ff = File::Fetch->new( uri => $remote ); libcpan-common-index-perl-0.010/lib/CPAN/Common/Index/Mirror.pm:121: my $where = $ff->fetch( to => $self->cache ) libcpan-common-index-perl-0.010/lib/CPAN/Common/Index/Mirror.pm-122- or Carp::croak( $ff->error ); libcpan-common-index-perl-0.010/lib/CPAN/Common/Index/Mirror.pm-123- if ($HAS_IO_UNCOMPRESS_GUNZIP) { libcpan-common-index-perl-0.010/lib/CPAN/Common/Index/Mirror.pm:124: ( my $uncompressed = $where ) =~ s/\.gz$//; libcpan-common-index-perl-0.010/lib/CPAN/Common/Index/Mirror.pm-125- no warnings 'once';