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 4a83bcb08f5c402c91bb22bd04497a5208dde688..2d309904c015270349044a5b90da40014aee7b1d 100644 (file)
--- 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;