author | heiko |
Wed, 01 Jun 2016 11:18:48 +0200 | |
changeset 66 | 16b4815a6a15 |
parent 65 | a118304a1f79 |
child 67 | da29842506b4 |
lib/Exim/Grey.pm | file | annotate | diff | comparison | revisions |
--- a/lib/Exim/Grey.pm Wed Jun 01 11:18:23 2016 +0200 +++ b/lib/Exim/Grey.pm Wed Jun 01 11:18:48 2016 +0200 @@ -57,7 +57,8 @@ my $delay = shift // $DEFAULT{delay}; my $db = shift // $DEFAULT{db}; my $now = time(); - my ($auto) = $item =~ /.*?\/(.+?)$/; + my ($auto) = $item =~ /.*?\/(.+?)$/ # remove the /<autokey> from the item + and $item =~ s/\/.*?$//; my $rc; connectDB(\my %h, $db);