--- a/lib/Exim/Grey.pm Tue May 31 23:20:08 2016 +0200
+++ b/lib/Exim/Grey.pm Wed Jun 01 00:41:52 2016 +0200
@@ -5,7 +5,7 @@
use base 'Exporter';
use Carp;
-our @EXPORT_OK = qw(unseen getDBDir getDBs connectDB);
+our @EXPORT_OK = qw(unseen getDBDir connectDB getDefault);
our %EXPORT_TAGS = (
all => \@EXPORT_OK,
);
@@ -75,7 +75,7 @@
return 'yes';
}
- my ($created, undef, $count) = split ' ', $h{$key};
+ my ($created, undef, $count) = split /[ \0]/, $h{$key};
# we know the client, but last contact was recently (too fast)
if ($now - $created < $delay) {
@@ -117,7 +117,7 @@
return 0 if not exists $h->{$key};
- my ($t0, undef, $cnt, $flag) = split ' ', $h->{$key};
+ my ($t0, undef, $cnt, $flag) = split /[ \0]/, $h->{$key};
$h->{$key} = join(' ' => $t0, time, ++$cnt, $flag ? $flag : ()) . "\0";
return 1;