=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libperl6-slurp-perl-0.051005/lib/Perl6/Slurp.pm-178- # Acquire data (working around bug between $/ and in magic ARGV)... libperl6-slurp-perl-0.051005/lib/Perl6/Slurp.pm:179: my $data = refaddr($FH) == \*ARGV ? join("",<>) : do { local $/; <$FH> }; libperl6-slurp-perl-0.051005/lib/Perl6/Slurp.pm-180-