From e060c99447a445bbf1c527b8c712e3bf809ee694 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Tue, 1 May 2012 16:35:18 -0400
Subject: Use mkpath instead of make_path

Perl <= 5.10 doesn't have make_path.  See
e.g. http://hydra.nixos.org/build/2493981.
---
 scripts/nix-channel.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts')

diff --git a/scripts/nix-channel.in b/scripts/nix-channel.in
index 524ffa656451..8f0fbbaa5097 100755
--- a/scripts/nix-channel.in
+++ b/scripts/nix-channel.in
@@ -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;
 
-- 
cgit 1.4.1