X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition.pm;fp=lib%2FText%2FTradition.pm;h=e4547223a04ed89b12807cf93500396303ddb535;hb=ec7ea4e66a9c35cbf50ea39d092ad7187435b76e;hp=97971a07ce7d035bf719cf2d15c53bee7f07c086;hpb=df8c12f0adaa60f133ba1ac752e619d29fb8d19e;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition.pm b/lib/Text/Tradition.pm
index 97971a0..e454722 100644
--- a/lib/Text/Tradition.pm
+++ b/lib/Text/Tradition.pm
@@ -60,6 +60,7 @@ has 'user' => (
     isa => 'Text::Tradition::User',
     required => 0,
     predicate => 'has_user',
+    clearer => 'clear_user',
     );
   
 # Create the witness before trying to add it