# HG changeset patch
# User Giacomo Tenaglia <Giacomo.Tenaglia@cern.ch>
# Date 1300795969 -3600
# Node ID b8fae8fb7942ebf91c55332a6950ce32db5870b4
# Parent  d7975e514b2a9d347a2781f1de7436d2e3284882
Allow '-' on RDN name when copying

diff -r d7975e514b2a -r b8fae8fb7942 shelldap
--- a/shelldap	Mon Feb 21 17:08:59 2011 -0800
+++ b/shelldap	Tue Mar 22 13:12:49 2011 +0100
@@ -1065,7 +1065,7 @@
 	# 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;