648db49f38
input. It implements the XML 1.0 standard, as well as support for namespaces and a number of other optional standards related to XML. WWW: http://libre.adacore.com/ (add correct port) PR: ports/107435 Submitted by: John Merryweather Cooper <john_m_cooper@yahoo.com> Repocopy by: marcus
11 lines
468 B
Ada
11 lines
468 B
Ada
--- schema/schema-validators-restrictions.adb.orig Tue Jan 2 10:28:58 2007
|
|
+++ schema/schema-validators-restrictions.adb Tue Jan 2 10:30:55 2007
|
|
@@ -201,7 +201,7 @@
|
|
begin
|
|
Had_Restriction := True;
|
|
|
|
- if Validator.Base.Block_Restriction and then Had_Restriction then
|
|
+ if Validator.Base.Block_Restriction then
|
|
Validation_Error
|
|
("Restrictions of type """
|
|
& Get_Local_Name (Validator.Base) & """ are forbidden");
|