From: Graham Knop <haarg@haarg.org>
Date: Tue, 21 Jan 2014 06:24:09 +0000 (-0500)
Subject: be compatible with ancient EUMM
X-Git-Tag: v0.002000~27
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f504bfb472e945dbdef8746c39f0d1550bbe393f;p=p5sagit%2FDistar.git

be compatible with ancient EUMM
---

diff --git a/lib/Distar.pm b/lib/Distar.pm
index 5a020d6..163705f 100644
--- a/lib/Distar.pm
+++ b/lib/Distar.pm
@@ -122,9 +122,9 @@ sub run_preflight {
 
   sub dist_test {
     my $self = shift;
-    my $test = $self->cd('$(DISTVNAME)',
-      '$(PERLRUN) "-MExtUtils::Manifest=manicheck" -e "exit manicheck"'
-    );
+    my $manicheck = '$(PERLRUN) "-MExtUtils::Manifest=manicheck" -e "exit manicheck"';
+    my $test = $self->can('cd') ? $self->cd('$(DISTVNAME)', $manicheck)
+                                : 'cd $(DISTVNAME) && ' . $manicheck;
     my $dist_test = $self->SUPER::dist_test(@_) . sprintf(<<'END', $test);
 
 # --- Distar section: