From 06eb52316452c74ca7698d26a834a8c71a496987 Mon Sep 17 00:00:00 2001
From: Greg Bacon <greg.bacon@gmail.com>
Date: Thu, 8 Mar 2012 18:06:54 -0600
Subject: [PATCH] Be compatible with older versions of File::Path

---
 src/gl-system-install | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/gl-system-install b/src/gl-system-install
index 99cf075..b8b6377 100755
--- a/src/gl-system-install
+++ b/src/gl-system-install
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use English;    # so I can say $EUID instead of $>
-use File::Path qw(make_path);
+use File::Path qw(mkpath);
 
 # install the gitolite software *system wide*.
 
@@ -75,7 +75,7 @@ sub argv_or_defaults {
 sub check_dirs {
     for my $dir ( $bin_dir, $conf_dir, $hooks_dir ) {
         die "$dir should be an absolute path\n" unless $dir =~ m(^/);
-        make_path($dir);
+        mkpath($dir);
         -d $dir or die "$dir does not exist and could not be created\n";
     }
 }