=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libmail-box-imap4-perl-3.007/lib/Mail/Server/IMAP4/Fetch.pm-84- libmail-box-imap4-perl-3.007/lib/Mail/Server/IMAP4/Fetch.pm:85: foreach my $addr ( qw/to from sender reply-to cc bcc/ ) libmail-box-imap4-perl-3.007/lib/Mail/Server/IMAP4/Fetch.pm-86- { my $addrs = $head->study($addr) or next; ############################################## libmail-box-imap4-perl-3.007/lib/Mail/Server/IMAP4/Fetch.pm-169- libmail-box-imap4-perl-3.007/lib/Mail/Server/IMAP4/Fetch.pm:170: foreach my $addr ( qw/from sender reply-to to cc bcc/ ) libmail-box-imap4-perl-3.007/lib/Mail/Server/IMAP4/Fetch.pm-171- { unless($self->{$addr})