diff --git a/lib/WebGUI/Cache/FileCache.pm b/lib/WebGUI/Cache/FileCache.pm index c8f075c7a..4146ff467 100644 --- a/lib/WebGUI/Cache/FileCache.pm +++ b/lib/WebGUI/Cache/FileCache.pm @@ -106,12 +106,13 @@ Retrieve content from the filesystem cache. sub get { my $self = shift; return undef if ($WebGUI::Session::session{config}{disableCache}); - if (open(FILE,"<".$self->getFolder()."/expires")) { + my $folder = $self->getFolder; + if (-e $folder."/expires" && -e $folder."/cache" && open(FILE,"<".$folder."/expires")) { my $expires = ; close(FILE); return undef if ($expires < time()); my $value; - eval {$value = retrieve($self->getFolder()."/cache")}; + eval {$value = retrieve($folder."/cache")}; if (ref $value eq "SCALAR") { return $$value; } else {