ignore changes without unique in commit
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 24 Jun 2010 15:31:16 +0000 (17:31 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 24 Jun 2010 15:31:16 +0000 (17:31 +0200)
lib/MojoFacets/Actions.pm

index 131f60e..ac109fe 100644 (file)
@@ -65,8 +65,7 @@ sub changes {
        foreach my $t ( sort { $a cmp $b } glob $glob ) {
                my $e = retrieve($t);
                $e->{old} = [ $e->{old} ] unless ref $e->{old} eq 'ARRAY';
-               if ( $items ) {
-                       die "no unique in ", dump($e) unless exists $e->{unique};
+               if ( $items && exists $e->{unique} ) {
                        my ($pk,$id) = %{ $e->{unique} };
                        if ( ! $pk ) {
                                $e->{_status} = 'skip';
@@ -92,6 +91,8 @@ sub changes {
                        }
                        $e->{_status} = $status;
                        $stats->{$status}++;
+               } else {
+                       warn "no unique in ", dump($e);
                }
                push @$changes, $e;
        }