From 1a6e27710b4e64abe9025f3b11074a956aa4cf2d Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Fri, 19 May 2006 01:16:31 +0000
Subject: [PATCH] a little more strict here.

---
 lib/WebGUI/Asset/Event.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Event.pm b/lib/WebGUI/Asset/Event.pm
index 719d10c41..c9357da09 100644
--- a/lib/WebGUI/Asset/Event.pm
+++ b/lib/WebGUI/Asset/Event.pm
@@ -203,9 +203,11 @@ See WebGUI::Asset::purgeCache() for details.
 
 sub purgeCache {
 	my $self = shift;
-	WebGUI::Cache->new($self->session,"view_".$self->getId)->delete;
+	my $cache = WebGUI::Cache->new($self->session,"view_".$self->getId);
+	$cache->delete if $cache;
 	$self->SUPER::purgeCache;
-	$self->getParent->purgeCache;
+	my $parent = $self->getParent;
+	$parent->purgeCache if defined $parent;
 }
 
 #-------------------------------------------------------------------