[Libguestfs] [PATCH 1/3] Build: Make changelog action call git directly without Git module

[Matthew Booth]

The changelog action needs to checkout git2cl as a submodule. For some reason,
when called through the Git module, command('submodule', 'update') was doing
something unfathomable, and different to just calling 'git submodule update'. As
Git is just a command line wrapper anyway, I've sidestepped this by just calling
the command directly.
---
 Build.PL |   18 ++----------------
 1 files changed, 2 insertions(+), 16 deletions(-)

diff --git a/Build.PL b/Build.PL
index efce5dd..51afae8 100644
--- a/Build.PL
+++ b/Build.PL
@@ -150,22 +150,8 @@ sub ACTION_changelog
         return 1;
     }
 
-    # Check that git is available
-    eval "use Git;";
-    if($@) {
-        $self->log_info("Git is not installed\n");
-        return 1;
-    }
-
-    # Update submodules to get git2cl
-    my $repo = Git->repository(Directory => '.');
-
-    eval {
-        $repo->command_noisy('submodule', 'update');
-    };
-
-    if($@) {
-        $self->log_info("Failed to initialise git2cl\n");
+    unless(system("git", "submodule", "update") == 0) {
+        $self->log_info("Failed to initialise git2cl: $@\n");
         return 1;
     }
 
-- 
1.6.6