diff options
Diffstat (limited to 'textproc/xmlada-gps/files/patch-schema_schema-validators-restrictions.adb')
| -rw-r--r-- | textproc/xmlada-gps/files/patch-schema_schema-validators-restrictions.adb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/textproc/xmlada-gps/files/patch-schema_schema-validators-restrictions.adb b/textproc/xmlada-gps/files/patch-schema_schema-validators-restrictions.adb new file mode 100644 index 000000000000..7bf9514d52e0 --- /dev/null +++ b/textproc/xmlada-gps/files/patch-schema_schema-validators-restrictions.adb @@ -0,0 +1,11 @@ +--- 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"); |