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 30dacfe60015ad8227a4370fb1d5dff180c38242..a9b3a32a7b9b57ccb6d13f652db6175a1b94fc48 100644 (file)
--- 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 ]);