projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4344f4e
)
File::Path auf legacy Interface umgestellt, damit es auf Maschinen vor 2010 läuft.
author
Sven Schöling
<s.schoeling@linet-services.de>
Fri, 25 Feb 2011 12:18:31 +0000
(13:18 +0100)
committer
Moritz Bunkus
<m.bunkus@linet-services.de>
Thu, 16 Jun 2011 06:44:12 +0000
(08:44 +0200)
SL/SessionFile.pm
patch
|
blob
|
history
diff --git
a/SL/SessionFile.pm
b/SL/SessionFile.pm
index
12f4984
..
b9a5b76
100644
(file)
--- a/
SL/SessionFile.pm
+++ b/
SL/SessionFile.pm
@@
-5,7
+5,7
@@
use strict;
use parent qw(Rose::Object);
use Carp;
use parent qw(Rose::Object);
use Carp;
-use File::Path qw(m
ake_path remove_
tree);
+use File::Path qw(m
kpath rm
tree);
use English qw(-no_match_vars);
use IO::File;
use POSIX qw(strftime);
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;
sub prepare_path {
my $path = get_path();
return $path if -d $path;
- m
ake_
path $path;
+ m
k
path $path;
die "Creating ${path} failed" unless -d $path;
return $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;
my ($class, $session_id) = @_;
$session_id =~ s/[^a-z0-9]//gi;
- r
emove_
tree "users/session_files/$session_id" if $session_id;
+ r
m
tree "users/session_files/$session_id" if $session_id;
}
1;
}
1;