emit more information on failed build command

Perl5-Alien · May 2, 2012 · 93738e2 · 93738e2
1 parent 6bb9a94
commit 93738e2
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lib/Alien/Base/ModuleBuild.pm b/lib/Alien/Base/ModuleBuild.pm
@@ -329,9 +329,13 @@ sub alien_build {
   my $commands = $self->alien_build_commands;
 
   foreach my $command (@$commands) {
-    my $success = $self->do_system( $command );
+    my %result = $self->do_system( $command );
-    unless ($success) {
+    unless ($result{success}) {
       carp "External command ($command) failed! Error: $?\n";
+      # diagnostic to be removed later
+      require Data::Dumper;
+      warn Dumper \%result;
+      # # # #
       return 0;
     }
   }