From 3abc4f6f80dcbb791dee2c1c45712e4abc4ea814 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 7 Sep 2012 17:44:43 +0000
Subject: (check_cache_dir) split it out of init_cache_dir() for mgaonline
 (mga#6083)

---
 urpm.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index aa66c3bd..1fdcb875 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -102,13 +102,18 @@ sub prefer_rooted {
     -e "$root$file" ? "$root$file" : $file;
 }
 
+sub check_cache_dir {
+    my ($urpm, $dir) = @_;
+    -d $dir && ! -l $dir or $urpm->{fatal}(1, N("fail to create directory %s", $dir));
+    -o $dir && -w $dir or $urpm->{fatal}(1, N("invalid owner for directory %s", $dir));
+}
+
 sub init_cache_dir {
     my ($urpm, $dir) = @_;
 
     mkdir $dir, 0755; # try to create it
 
-    -d $dir && ! -l $dir or $urpm->{fatal}(1, N("fail to create directory %s", $dir));
-    -o $dir && -w $dir or $urpm->{fatal}(1, N("invalid owner for directory %s", $dir));
+    check_cache_dir($urpm, $dir);
 
     mkdir "$dir/partial";
     mkdir "$dir/rpms";
-- 
cgit v1.2.1