diff options
| author |   Greg Bacon <greg.bacon@gmail.com> | 2012-03-08 18:06:54 -0600 |
|---|---|---|
| committer |   Sitaram Chamarty <sitaram@atc.tcs.com> | 2012-03-09 05:49:21 +0530 |
| commit | 06eb52316452c74ca7698d26a834a8c71a496987 (patch) | |
| tree | 76ce57b5333f9a9af97087203e0fe1752586431d | |
| parent | specify documentation licensing as CC-BY-NC-SA (diff) | |
| download | gitolite-gentoo-06eb52316452c74ca7698d26a834a8c71a496987.tar.gz gitolite-gentoo-06eb52316452c74ca7698d26a834a8c71a496987.tar.bz2 gitolite-gentoo-06eb52316452c74ca7698d26a834a8c71a496987.zip | |
Be compatible with older versions of File::Path
| -rwxr-xr-x | src/gl-system-install | 4 |
1 files 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"; } } |