From: Simon Cozens <simon@simon-cozens.org>
Date: Thu, 26 Feb 2004 14:14:51 +0000 (+0000)
Subject: Ensure objects can always be safely dereferenced
X-Git-Tag: 2.10~287
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=cede90d898b66d4b12587e4993e591079a9d4b0d;p=maypole.git

Ensure objects can always be safely dereferenced


git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@75 48953598-375a-da11-a14b-00016c27c3ee
---

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 ]);