--- 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;