mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use mkpath instead of make_path

Browse source 
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
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scripts/nix-channel.in
View file

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