changeset 66 | 16b4815a6a15 |
parent 63 | 8525154c1389 |
child 67 | da29842506b4 |
--- 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);