output log of zeromq installation

[chaz/p5-Alien-ZMQ] / inc / My / Build.pm

diff --git a/inc/My/Build.pm b/inc/My/Build.pm
index b582c9123730d8d9815a450fde23de0bf53d96e0..575ca455c09891febe92ed2529e724d6752d3bcd 100644 (file)
--- a/inc/My/Build.pm
+++ b/inc/My/Build.pm
@@ -10,7 +10,6 @@ use Cwd qw/realpath/;
 use Digest::SHA qw/sha1_hex/;
 use File::Path qw/remove_tree/;
 use File::Spec::Functions qw/catdir catfile/;
-use IPC::Cmd qw/can_run run/;
 use LWP::Simple qw/getstore RC_OK/;
 use Module::Build;
 
@@ -155,8 +154,6 @@ sub install_zeromq {
     my $self = shift;
     my $cb = $self->cbuilder;
 
-    can_run("libtool") or die "The libtool command cannot be found";
-
     my $version = $self->notes('zmq-version');
     my $sha1 = $self->notes('zmq-sha1');
     my $archive = "zeromq-$version.tar.gz";
@@ -185,14 +182,14 @@ sub install_zeromq {
     say "Configuring...";
     my @config = $cb->split_like_shell($self->args('zmq-config') || "");
     chdir $srcdir;
-    run(command => ["./configure", "--prefix=$prefix", @config])
+    $cb->do_system("./configure", "--prefix=$prefix", @config)
         or die "Failed to configure ØMQ";
 
     say "Compiling...";
-    run(command => ['make']) or die "Failed to make ØMQ";
+    $cb->do_system("make") or die "Failed to make ØMQ";
 
     say "Installing...";
-    run(command => [qw|make install prefix=/|, "DESTDIR=$datadir"])
+    $cb->do_system(qw|make install prefix=/|, "DESTDIR=$datadir")
         or die "Failed to install ØMQ";
 
     chdir $basedir;