Commit a29b929f authored by Gary Wong's avatar Gary Wong

Permit dashes in sub-authority names again.

(This was accidentally broken in the previous commit.)
parent 3e21febe
......@@ -97,7 +97,7 @@ sub IsValid($)
# mandatory: partly to avoid ambiguity between resource type
# namespaces, and partly to avoid ambiguity between a resource-type
# and a resource-name containing (escaped) whitespace.
return $hrn =~ m'^[uU][rR][nN]:[pP][uU][bB][lL][iI][cC][iI][dD]:IDN\+[A-Za-z0-9.-]+(?::[A-Za-z0-9.-_]+)*\+\w+\+(?:[-!$()*,./0-9:=@A-Z_a-z]|(?:%[0-9A-Fa-f][0-9A-Fa-f]))+$';
return $hrn =~ m'^[uU][rR][nN]:[pP][uU][bB][lL][iI][cC][iI][dD]:IDN\+[A-Za-z0-9.-]+(?::[A-Za-z0-9._-]+)*\+\w+\+(?:[-!$()*,./0-9:=@A-Z_a-z]|(?:%[0-9A-Fa-f][0-9A-Fa-f]))+$';
# Perform RFC 3151 transcription (from a string of legal public identifier
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment