[Bast-commits] r3569 - trunk/DBIx-Class/lib/DBIx/Class

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2007-07-04 14:10:48 +0100 (Wed, 04 Jul 2007)
New Revision: 3569

Modified:
   trunk/DBIx-Class/lib/DBIx/Class/Row.pm
Log:
Fixup indenting/code style


Modified: trunk/DBIx-Class/lib/DBIx/Class/Row.pm
===================================================================
--- trunk/DBIx-Class/lib/DBIx/Class/Row.pm	2007-07-04 12:35:37 UTC (rev 3568)
+++ trunk/DBIx-Class/lib/DBIx/Class/Row.pm	2007-07-04 13:10:48 UTC (rev 3569)
@@ -150,9 +150,7 @@
   my %related_stuff = (%{$self->{_relationship_data} || {}}, 
                        %{$self->{_inflated_column} || {}});
 
-  if(!$self->{_rel_in_storage})
-  {
-
+  if(!$self->{_rel_in_storage}) {
     $source->storage->txn_begin;
 
     # The guard will save us if we blow out of this scope via die
@@ -208,8 +206,7 @@
     $self->store_column($auto_pri[$_] => $ids[$_]) for 0 .. $#ids;
   }
 
-  if(!$self->{_rel_in_storage})
-  {
+  if(!$self->{_rel_in_storage}) {
     ## Now do the has_many rels, that need $selfs ID.
     foreach my $relname (keys %related_stuff) {
       my $rel_obj = $related_stuff{$relname};