Allow '-' on RDN name when copying

FossilOrigin-Name: bb20336e44ae9273978b7f2b4bd0f25a87911a30ebcda500363d64d1d9b34685
This commit is contained in:
Giacomo.Tenaglia@cern.ch 2011-03-22 12:12:49 +00:00
parent 7543feaf95
commit 9f46d5d326

View file

@ -1065,7 +1065,7 @@ sub run_copy
# perhaps there is a better way to do this...?
#
my ( $uniqkey, $uniqval ) = ( $1, $2 )
if $d_dn =~ /^([\.\w]+)(?:\s+)?=(?:\s+)?([\.\-\s\w]+),?/;
if $d_dn =~ /^([\.\w\-]+)(?:\s+)?=(?:\s+)?([\.\-\s\w]+),?/;
unless ( $uniqkey && $uniqval ) {
print "Unable to parse unique values from rdn.\n";
return;