# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1311318636 -7200
# Node ID 1de953919a97c6038f747860e718aaf66b4d9c7d
# Parent  dda58a85698b4329e8a84d2cbb9897255b8c998a
allow numbers in usernames

diff -r dda58a85698b -r 1de953919a97 lib/Ius/Dav/Htpasswd.pm
--- a/lib/Ius/Dav/Htpasswd.pm	Thu Jul 21 11:15:57 2011 +0200
+++ b/lib/Ius/Dav/Htpasswd.pm	Fri Jul 22 09:10:36 2011 +0200
@@ -77,7 +77,7 @@
 
     my ( $conf, $user, $expiry ) = @_;
 
-    return unless $user =~ /^[[:alpha:]_]+$/;
+    return unless $user =~ /^[[:alnum:]_]+$/;
 
     if ( defined $expiry ) {
         return unless $expiry =~ /^[0-9]+$/;