X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI.pm;h=2d309904c015270349044a5b90da40014aee7b1d;hb=24259799350483f32219fd3755e0bed54f909c54;hp=0a6c95b0be129cc08206caffb8e011391f875ebc;hpb=5e9b1336d1f20d57953e3e419fa7d68e79723528;p=maypole.git

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index 0a6c95b..2d30990 100644
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -239,11 +239,11 @@ sub fetch_objects {
     my ($class,$r)=@_;
     my @pcs = $class->primary_columns;
     if ( $#pcs ) {
-	my %pks;
+    my %pks;
         @pks{@pcs}=(@{$r->{args}});
-    	return $class->retrieve( %pks );
-    } 
-    return $class->retrieve( %$r->{args}->[0] );
+        return $class->retrieve( %pks );
+    }
+    return $class->retrieve( $r->{args}->[0] );
 }
 
 1;