From 9f46d5d3261ff47c16f4d385eeaee00e922e0af8 Mon Sep 17 00:00:00 2001 From: "Giacomo.Tenaglia@cern.ch" Date: Tue, 22 Mar 2011 12:12:49 +0000 Subject: [PATCH] Allow '-' on RDN name when copying FossilOrigin-Name: bb20336e44ae9273978b7f2b4bd0f25a87911a30ebcda500363d64d1d9b34685 --- shelldap | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/shelldap b/shelldap index 8078003..509bf39 100755 --- a/shelldap +++ b/shelldap @@ -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;