Change Tradition comparing to use == (and assume we have the same reference) rather...

[scpubgit/stemmatology.git] / lib / Text / Tradition / User.pm

diff --git a/lib/Text/Tradition/User.pm b/lib/Text/Tradition/User.pm
index 9ba694b..47ab694 100644 (file)
--- a/lib/Text/Tradition/User.pm
+++ b/lib/Text/Tradition/User.pm
@@ -32,7 +32,7 @@ sub remove_tradition {
 
     ## FIXME: Is "name" a good unique field to compare traditions on?
     my @traditions = @{$self->traditions};
-    @traditions = grep { $tradition->name ne $_->name } @traditions;
+    @traditions = grep { $tradition != $_ } @traditions;
 
     $tradition->clear_user;
     $self->traditions(\@traditions);