Allow dot in the uuid since we already expect that it won't

actually be a uuid, and this means it won't barf, given that
it invents on the next line anyway.

protogeni/lib/GeniCertificate.pm.in

@@ -525,7 +525,7 @@ sub LoadFromArray($@)
     # one below.
     #
     if( !defined( $uuid ) ) {
-	if ($DN =~ /\/CN=([-\w]*)/) {
+	if ($DN =~ /\/CN=([-\w\.]*)/) {
 	    $uuid = $1;
 	}
 	else {