Allow the period character when moving an entry by full DN.

Reported by Carlos Jnr <carlos.jnr@gmail.com>.

FossilOrigin-Name: aebc78b1ae3cb4f0ca7f424d5d81b18f75fd8bab8d3ada7ace022729c5d9d84f
This commit is contained in:
Mahlon E. Smith 2015-12-08 08:54:13 +00:00
parent 897837b463
commit d125279f9b

View file

@ -2083,8 +2083,8 @@ sub run_move
# see if we're moving the entry to a totally new path
my ( $new_dn, $old_dn );
( $d_dn, $new_dn ) = ( $1, $2 ) if $d_dn =~ /^([\-\w=]+),(.*)$/;
$old_dn = $1 if $s_dn =~ /^[\-\w=]+,(.*)$/;
( $d_dn, $new_dn ) = ( $1, $2 ) if $d_dn =~ /^([\.\-\w=]+),(.*)$/;
$old_dn = $1 if $s_dn =~ /^[\.\-\w=]+,(.*)$/;
my $moddn = sub {
return $self->ldap()->moddn(