From 203503c712d99f91c61dbe27f0f40345ff992567 Mon Sep 17 00:00:00 2001
From: Michael Scherer <misc@mageia.org>
Date: Fri, 15 Apr 2011 11:04:47 +0000
Subject: use the non legacy interface of the module ( in case upstream decide
 to drop it in 10 years )

---
 ulri | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/ulri b/ulri
index 1526bef..cf26cac 100755
--- a/ulri
+++ b/ulri
@@ -39,7 +39,7 @@ use Iurt::File qw(check_upload_tree);
 use Iurt::Mail qw(sendmail);
 use Iurt::Util qw(plog_init plog ssh_setup ssh sout sget sput);
 use File::Copy 'move';
-use File::Path 'mkpath';
+use File::Path 'make_path';
 use File::Temp 'mktemp';
 use Filesys::Df qw(df);
 use Data::Dumper;
@@ -374,7 +374,7 @@ foreach my $prefix (keys %pkg_tree) {
 		    }
 
 		    plog('DEBUG', "copy files to done");
-		    mkpath($done_dir);
+		    make_path($done_dir);
 		    if (sget($remote, "$prefix_dir/$result",
 				 "$result_file.new")) {
 			plog('ERR', "copying $result from $host failed ($!)");
@@ -452,7 +452,7 @@ foreach my $prefix (keys %pkg_tree) {
 
 	plog('FAIL', "build failed");
 	create_file("$done_dir/${prefix}_$arch.fail", "$bot $host");
-	mkpath($fail_dir);
+	make_path($fail_dir);
 
 	if (sget($remote, "$prefix_dir/", "$fail_dir/")) {
 	    plog('ERR', "copying from $host:$prefix_dir/ " .
@@ -575,8 +575,8 @@ foreach my $prefix (sort keys %pkg_tree) {
     my $todo_dir = "$todo/$path";
 
     # Make sure these exist
-    mkpath($done_dir);
-    mkpath($todo_dir);
+    make_path($done_dir);
+    make_path($todo_dir);
 
     #plog('DEBUG', "searching a bot to compile @$srpms");
 
-- 
cgit v1.2.1