Francois Gouget : testbot: Fix compatibility with older File:: Path versions.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 12bc87810865a310f27ae0f9de991c3df8aef1e1
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=12bc87810865a310f27ae0f9d...

Author: Francois Gouget 
Date:   Wed Nov 22 11:23:55 2017 +0100

testbot: Fix compatibility with older File::Path versions.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/lib/WineTestBot/Jobs.pm  | 4 ++--
 testbot/lib/WineTestBot/Steps.pm | 4 ++--
 testbot/lib/WineTestBot/Tasks.pm | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/testbot/lib/WineTestBot/Jobs.pm b/testbot/lib/WineTestBot/Jobs.pm
index b34b31e..0144dde 100644
--- a/testbot/lib/WineTestBot/Jobs.pm
+++ b/testbot/lib/WineTestBot/Jobs.pm
@@ -95,7 +95,7 @@ sub CreateDir($)
 {
   my ($self) = @_;
   my $Dir = $self->GetDir();
-  File::Path::make_path($Dir, mode => 0775);
+  mkpath($Dir, 0, 0775);
   return $Dir;
 }

@@ -103,7 +103,7 @@ sub RmTree($)
 {
   my ($self) = @_;
   my $Dir = $self->GetDir();
-  File::Path::remove_tree($Dir);
+  rmtree($Dir);
 }

sub Status($;$)
diff --git a/testbot/lib/WineTestBot/Steps.pm b/testbot/lib/WineTestBot/Steps.pm
index 4161f0b..8c5d4ec 100644
--- a/testbot/lib/WineTestBot/Steps.pm
+++ b/testbot/lib/WineTestBot/Steps.pm
@@ -72,7 +72,7 @@ sub CreateDir($)
 {
   my ($self) = @_;
   my $Dir = $self->GetDir();
-  File::Path::make_path($Dir, mode => 0775);
+  mkpath($Dir, 0, 0775);
   return $Dir;
 }

@@ -80,7 +80,7 @@ sub RmTree($)
 {
   my ($self) = @_;
   my $Dir = $self->GetDir();
-  File::Path::remove_tree($Dir);
+  rmtree($Dir);
 }

sub HandleStaging($$)
diff --git a/testbot/lib/WineTestBot/Tasks.pm b/testbot/lib/WineTestBot/Tasks.pm
index efe1b21..b3b6ae3 100644
--- a/testbot/lib/WineTestBot/Tasks.pm
+++ b/testbot/lib/WineTestBot/Tasks.pm
@@ -71,7 +71,7 @@ sub CreateDir($)
 {
   my ($self) = @_;
   my $Dir = $self->GetDir();
-  File::Path::make_path($Dir, mode => 0775);
+  mkpath($Dir, 0, 0775);
   return $Dir;
 }

@@ -79,7 +79,7 @@ sub RmTree($)
 {
   my ($self) = @_;
   my $Dir = $self->GetDir();
-  File::Path::remove_tree($Dir);
+  rmtree($Dir);
 }

sub _SetupTask($$)