mkpath_p no longer exists, using mkpath instead.

1 files changed, 3 insertions, 1 deletions

diff --git a/iurt2 b/iurt2
index 9dcf2cc..f6af09d 100755
--- a/iurt2
+++ b/iurt2
@@ -43,6 +43,7 @@ use Iurt::Process qw(perform_command clean kill_for_good);
 use Iurt::Mail qw(sendmail);
 use Iurt::Util qw(plog_init plog);
 use File::NCopy qw(copy);
+use File::Path qw(mkpath);
 # I did not manage to make locks work over the network
 #use File::lockf;
 use Mkcd::Commandline qw(parseCommandLine usage);
@@ -432,6 +433,7 @@ if (!$lock && $run{dkms}) {
     $local = 0
 }
 $run{lock} = $lock;
+
 # cache file name is needed early to remove the manual lock file if the lock mechanism does not work
 my $cachefile = "$config->{cache_home}/iurt.$run{distro_tag}.$run{my_arch}.$lock.cache";
 $run{cachefile} = $cachefile;
@@ -451,7 +453,7 @@ if ($config->{local_spool}) {
 plog(5, "using $local_spool as local spooler");
 if (!-d "$local_spool/log") {
     plog(5, "creating local spool $local_spool");
-    mkdir_p("$local_spool/log") or die "FATAL $program_name: could not create local spool dir $local_spool ($!)"
+    mkpath("$local_spool/log") or die "FATAL $program_name: could not create local spool dir $local_spool ($!)"
 }
 $run{local_spool} = $local_spool;