wr217283: don't validate DomainName field

When using this with the SRS application, it will result in changes to error messages. However, at a later date we'll probably want to re-enable this.
catalyst · Dec 17, 2013 · 23fbfc5 · 23fbfc5
1 parent a5486a3
commit 23fbfc5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/XML/SRS/Types.pm b/lib/XML/SRS/Types.pm
@@ -36,7 +36,8 @@ our $DNS_name_re = qr/(?:$RR_re\.)+$RR_re/;
 subtype "${PKG}::DomainName"
 	=> as "Str"
 	=> where {
-	m{\A$DNS_name_re\Z};
+	   1;
+	   #m{\A$DNS_name_re\Z};
 	};
 
 subtype "${PKG}::UDAI"