Commit 0731bd5f authored by Christophe Maudoux's avatar Christophe Maudoux

Cleaning useless code

parent 39b8e96f
Pipeline #3832 passed with stages
in 11 minutes and 6 seconds
......@@ -25,32 +25,4 @@ sub count {
return $count;
}
sub clean_sessions {
opendir D, 't/sessions' or die $!;
foreach ( grep { /^[^\.]/ } readdir(D) ) {
unlink "t/sessions/$_", "t/sessions/lock/Apache-Session-$_.lock";
}
foreach my $dir (qw(t/sessions/lock t/sessions/saml/lock t/sessions/saml)) {
if ( -d $dir ) {
opendir D, $dir or die $!;
foreach ( grep { /^[^\.]/ } readdir(D) ) {
unlink "$dir/$_";
}
}
}
my $cache = getCache();
$cache->clear;
}
sub getCache {
require Cache::FileCache;
return Cache::FileCache->new(
{
namespace => 'lemonldap-ng-session',
cache_root => 't/',
cache_depth => 0,
}
);
}
1;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment