RT3230: Better test for C identifier

[openssl.git] / crypto / objects / objects.pl

diff --git a/crypto/objects/objects.pl b/crypto/objects/objects.pl
index d0ed459d3dc424b2e4cdc187678adf98e633e592..389dc348373a65d1b49136c92ca8b930d4cc6d57 100644 (file)
--- a/crypto/objects/objects.pl
+++ b/crypto/objects/objects.pl
@@ -67,7 +67,7 @@ while (<IN>)
                $myoid = &process_oid($myoid);
                }
 
-       if ($Cname eq "" && !($myln =~ / /))
+       if ($Cname eq "" && ($myln =~ /^[_A-Za-z][\w.-]*$/ ))
                {
                $Cname = $myln;
                $Cname =~ s/\./_/g;