aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Scherer <misc@mageia.org>2011-04-15 11:04:47 +0000
committerMichael Scherer <misc@mageia.org>2011-04-15 11:04:47 +0000
commit203503c712d99f91c61dbe27f0f40345ff992567 (patch)
treea5d4d9433b76dd5bd4ec37817d6195af96e30eeb
parentebe61a6ec45efbf494b5ac3000eda972299a818e (diff)
downloadiurt-203503c712d99f91c61dbe27f0f40345ff992567.tar
iurt-203503c712d99f91c61dbe27f0f40345ff992567.tar.gz
iurt-203503c712d99f91c61dbe27f0f40345ff992567.tar.bz2
iurt-203503c712d99f91c61dbe27f0f40345ff992567.tar.xz
iurt-203503c712d99f91c61dbe27f0f40345ff992567.zip
use the non legacy interface of the module ( in case upstream decide to drop it in 10 years )
-rwxr-xr-xulri10
1 files 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");