Use mkpath instead of make_path

Perl <= 5.10 doesn't have make_path.  See
e.g. http://hydra.nixos.org/build/2493981.
This commit is contained in:
Eelco Dolstra 2012-05-01 16:35:18 -04:00
parent e19fb7ebed
commit e060c99447

View file

@ -2,7 +2,7 @@
use strict;
use File::Basename;
use File::Path qw(make_path);
use File::Path qw(mkpath);
use Nix::Config;
my $manifestDir = $Nix::Config::manifestDir;
@ -21,7 +21,7 @@ my $nixDefExpr = "$home/.nix-defexpr";
# Figure out the name of the channels profile.
my $userName = getpwuid($<) or die "cannot figure out user name";
my $profile = "$Nix::Config::stateDir/profiles/per-user/$userName/channels";
make_path(dirname $profile, mode => 0755);
mkpath(dirname $profile, 0, 0755);
my %channels;