From 58753a86e944832e9904b04b66297667f02c3d55 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 26 Nov 2005 03:21:50 +0000
Subject: [PATCH] more traps

---
 lib/WebGUI/Cache/FileCache.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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 = <FILE>;
 		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 {