From 2753043a08e24e59b8f068f00bc72b4eb21190ae Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@simon-cozens.org>
Date: Mon, 6 Dec 2004 19:41:52 +0000
Subject: [PATCH] fix tabs/spaces

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@301 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole/Model/CDBI.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index 0a6c95b..4a83bcb 100644
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -239,10 +239,10 @@ 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( %pks );
+    }
     return $class->retrieve( %$r->{args}->[0] );
 }
 
-- 
2.39.5