--- lib/Authen/Htpasswd.pm	2007-07-16 00:10:58.000000000 +0200
+++ lib/Authen/Htpasswd.pm.oden	2008-10-01 15:59:21.000000000 +0200
@@ -188,7 +188,7 @@
     my ($old,$new) = $self->_start_rewrite;
     my $seen = 0;
     while (defined(my $line = <$old>)) {
-        if ($line =~ /^\Q$username\:/) {
+        if ($line =~ /^\Q$username\E\:/) {
             chomp $line;
             my (undef,undef,@extra_info) = split /:/, $line;
             $user->{extra_info} ||= [ @extra_info ] if scalar @extra_info;
@@ -219,7 +219,7 @@
 
     my ($old,$new) = $self->_start_rewrite;
     while (defined(my $line = <$old>)) {
-        if ($line =~ /^\Q$username\:/) {
+        if ($line =~ /^\Q$username\E\:/) {
             $self->_abort_rewrite;
             croak "user $username already exists in " . $self->file . "!";
         }
@@ -244,7 +244,7 @@
 
     my ($old,$new) = $self->_start_rewrite;
     while (defined(my $line = <$old>)) {
-        next if $line =~ /^\Q$username\:/;
+        next if $line =~ /^\Q$username\E\:/;
         $self->_print( $new, $line );
     }
     $self->_finish_rewrite($old,$new);