From 30e09cb2e85d2eab0d3cd9653eafdfef51df8645 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 25 Feb 2011 13:18:31 +0100
Subject: [PATCH] =?utf8?q?File::Path=20auf=20legacy=20Interface=20umgestel?=
 =?utf8?q?lt,=20damit=20es=20auf=20Maschinen=20vor=202010=20l=C3=A4uft.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/SessionFile.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/SL/SessionFile.pm b/SL/SessionFile.pm
index 12f498465..b9a5b7697 100644
--- a/SL/SessionFile.pm
+++ b/SL/SessionFile.pm
@@ -5,7 +5,7 @@ use strict;
 use parent qw(Rose::Object);
 
 use Carp;
-use File::Path qw(make_path remove_tree);
+use File::Path qw(mkpath rmtree);
 use English qw(-no_match_vars);
 use IO::File;
 use POSIX qw(strftime);
@@ -56,7 +56,7 @@ sub get_path {
 sub prepare_path {
   my $path = get_path();
   return $path if -d $path;
-  make_path $path;
+  mkpath $path;
   die "Creating ${path} failed" unless -d $path;
   return $path;
 }
@@ -65,7 +65,7 @@ sub destroy_session {
   my ($class, $session_id) = @_;
 
   $session_id =~ s/[^a-z0-9]//gi;
-  remove_tree "users/session_files/$session_id" if $session_id;
+  rmtree "users/session_files/$session_id" if $session_id;
 }
 
 1;
-- 
2.20.1