User store functionality actually in Directory; migrate changes there

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

diff --git a/lib/Text/Tradition/UserStore.pm b/lib/Text/Tradition/UserStore.pm
index 03082f1..fdb6d47 100644 (file)
--- a/lib/Text/Tradition/UserStore.pm
+++ b/lib/Text/Tradition/UserStore.pm
@@ -82,7 +82,8 @@ sub add_user {
     my $password = $userinfo->{password};
 
        throw( "No username given" ) unless $username;
-       throw( "Invalid password - too short?" )
+       throw( "Invalid password - must be at least " . $self->MIN_PASS_LEN 
+               . " characters long" )
                unless ( $self->validate_password($password) || $username =~ /^https?:/ );
     
     my $user = Text::Tradition::User->new(