From: Marcus Ramberg <mramberg@cpan.org>
Date: Thu, 9 Dec 2004 10:33:03 +0000 (+0000)
Subject: fixes  default retrieve.
X-Git-Tag: 2.10~50
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=38deb5b0946274f649b98539bd1af06ab2741cfb;p=maypole.git

fixes  default retrieve.


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

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index 4a83bcb..2d30990 100644
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -243,7 +243,7 @@ sub fetch_objects {
         @pks{@pcs}=(@{$r->{args}});
         return $class->retrieve( %pks );
     }
-    return $class->retrieve( %$r->{args}->[0] );
+    return $class->retrieve( $r->{args}->[0] );
 }
 
 1;