X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEmail%2FEzPz%2FListCore.pm;h=b91517de5ffbefde4c0735f9c157ec9e45917036;hb=b1194426f73a97b7caebc4695a1c0dec3ac5ab3a;hp=9543e36acd2ac850441adbbb333551263ed67975;hpb=c5f4b6d4439311a9459eddf55085115bfb2b9e0a;p=scpubgit%2FApp-EzPz.git

diff --git a/lib/Email/EzPz/ListCore.pm b/lib/Email/EzPz/ListCore.pm
index 9543e36..b91517d 100644
--- a/lib/Email/EzPz/ListCore.pm
+++ b/lib/Email/EzPz/ListCore.pm
@@ -12,7 +12,11 @@ requires 'sublist_type';
 
 sub _command_path {
   my ($self, $command) = @_;
-  return io->dir($self->ezmlm_bindir)->catfile("ezmlm-${command}");
+  if (ref(my $bindir = $self->ezmlm_bindir) eq 'ARRAY') { # prefix list
+    return (@{$bindir}, "ezmlm-${command}");
+  } else {
+    return io->dir($bindir)->catfile("ezmlm-${command}");
+  }
 }
 
 sub _command_args {