From cede90d898b66d4b12587e4993e591079a9d4b0d Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@simon-cozens.org>
Date: Thu, 26 Feb 2004 14:14:51 +0000
Subject: [PATCH] Ensure objects can always be safely dereferenced

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@75 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole/Model/Base.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Maypole/Model/Base.pm b/lib/Maypole/Model/Base.pm
index 30dacfe..a9b3a32 100644
--- a/lib/Maypole/Model/Base.pm
+++ b/lib/Maypole/Model/Base.pm
@@ -12,6 +12,7 @@ sub process {
     return if $r->{template}; # Authentication has set this, we're done.
 
     $r->{template} = $method;
+    $r->objects([]);
     my $obj = $class->retrieve( $r->{args}->[0] );
     if ($obj) {
         $r->objects([ $obj ]);
-- 
2.39.5