return map

[portholeaccel]

sub passphrase_match{
        my $obj = $_[0];
        $obj->get_passphrase_regex;
        my ($id, $stash,$ppregex) = @{$obj};
        $ppregex or return ();
        return map {
                if($_[1] =~ m/$ppregex->{$_}/){
                       
$stash->{PASSPHRASE}->{$_}->{matches}++;
                        ($_);
                }else{()};
                } keys %$ppregex;
};

=====
depARTURES Vs. arRIVALS
_________________________________________________
*************Bullauge Beschleuniger*********


                                                   http://www.porthole-accelerator.org

__________________________________
Do you Yahoo!?
Get better spam protection with Yahoo! Mail.
http://antispam.yahoo.com/tools