From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 15 Jul 2012 17:29:41 +0000 (+0000)
Subject: support prefix list for bindir
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FApp-EzPz.git;a=commitdiff_plain;h=b1194426f73a97b7caebc4695a1c0dec3ac5ab3a

support prefix list for bindir
---

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 {