--- 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]+$/;