[Bast-commits] r5124 - DBIx-Class-OptimisticLocking/1.000/trunk/lib/DBIx/Class

[bpphillips at dev.catalyst.perl.org]

Author: bpphillips
Date: 2008-11-13 22:01:10 +0000 (Thu, 13 Nov 2008)
New Revision: 5124

Modified:
   DBIx-Class-OptimisticLocking/1.000/trunk/lib/DBIx/Class/OptimisticLocking.pm
Log:
fixed syntax error, stripped insignificant on all

Modified: DBIx-Class-OptimisticLocking/1.000/trunk/lib/DBIx/Class/OptimisticLocking.pm
===================================================================
--- DBIx-Class-OptimisticLocking/1.000/trunk/lib/DBIx/Class/OptimisticLocking.pm	2008-11-13 22:01:01 UTC (rev 5123)
+++ DBIx-Class-OptimisticLocking/1.000/trunk/lib/DBIx/Class/OptimisticLocking.pm	2008-11-13 22:01:10 UTC (rev 5124)
@@ -174,11 +174,7 @@
 	my $ident_condition = $self->{_orig_ident} || $self->ident_condition;
 	my $mode = $self->optimistic_locking_mode;
 
-	# also check to see if this column is considered insignificant (default behavior: every column is significant)
 	my $insignificant = $self->optimistic_locking_insignificant_dirty_columns || [];
-	
-	# also check to see if this column is considered insignificant (default behavior: every column is significant)
-	my $insignificant = $self->optimistic_locking_insignificant_dirty_columns || [];
 		
 	if ( $mode eq 'dirty' ) {
 
@@ -193,7 +189,9 @@
 
 	} elsif ( $mode eq 'all' ) {
 
-		$ident_condition = { $self->get_original_columns, %$ident_condition };
+		my %orig = $self->get_original_columns;
+		delete($orig{$_}) foreach(@$insignificant);
+		$ident_condition = { %orig, %$ident_condition };
 
 	}