lib/Exim/Grey.pm
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);