be compatible with ancient EUMM
Graham Knop [Tue, 21 Jan 2014 06:24:09 +0000 (01:24 -0500)]
lib/Distar.pm

index 5a020d6..163705f 100644 (file)
@@ -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: