From 1a8f65b842f185c423a82f9784313b4e1eb3ef74 Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@belial.triptico.com>
Date: Wed, 17 Oct 2007 14:10:13 +0200
Subject: [PATCH] Fixed a typo in FS.pm purge_old_sessions().

---
 Gruta/Source/FS.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Gruta/Source/FS.pm b/Gruta/Source/FS.pm
index 61bf7ba..63ccfa9 100644
--- a/Gruta/Source/FS.pm
+++ b/Gruta/Source/FS.pm
@@ -496,7 +496,7 @@ sub session { return _one( @_, 'Gruta::Data::FS::Session' ); }
 sub purge_old_sessions {
 	my $self	 = shift;
 
-	my $path = $self->{path} . Gruta::Data::FS::Session::Base();
+	my $path = $self->{path} . Gruta::Data::FS::Session::base();
 
 	if (opendir D, $path) {
 		while(my $s = readdir D) {
-- 
2.11.4.GIT