File 4025-xmerl-Fix-silly-matching-bug.patch of Package erlang

From 5141e6b0f55327074cb0ad1350cb2ee116ec4119 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20H=C3=B6gberg?= <john@erlang.org>
Date: Fri, 22 Jan 2021 13:24:58 +0100
Subject: [PATCH 05/10] xmerl: Fix silly matching bug

We shouldn't crash if the whitespace happens to differ.
---
 lib/xmerl/src/xmerl_sax_parser_base.erlsrc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/xmerl/src/xmerl_sax_parser_base.erlsrc b/lib/xmerl/src/xmerl_sax_parser_base.erlsrc
index 3dfdec440a..7c6044b3da 100644
--- a/lib/xmerl/src/xmerl_sax_parser_base.erlsrc
+++ b/lib/xmerl/src/xmerl_sax_parser_base.erlsrc
@@ -3104,7 +3104,7 @@ add_default_attribute({ElementName, AttrName, Value},
 parse_att_type(?STRING_EMPTY, State) ->
     cf(?STRING_EMPTY, State, fun parse_att_type/2);
 parse_att_type(?STRING_UNBOUND_REST(C, _) = Bytes, State) when ?is_whitespace(C) ->
-    {_WS, Rest, State1} = whitespace(Bytes, State, []),
+    {_, Rest, State1} = whitespace(Bytes, State, []),
     case parse_att_type_1(Rest, State1, []) of 
     {"(", Rest1, State2} -> 
         {T, Rest2, State3} = parse_until_right_paren(Rest1, State2, []),
@@ -3115,7 +3115,7 @@ parse_att_type(?STRING_UNBOUND_REST(C, _) = Bytes, State) when ?is_whitespace(C)
                 {"(" ++ T, Rest2, State3}
         end;
     {"NOTATION", Rest1, State2} ->
-        {_WS, Rest2, State3} = whitespace(Rest1, State2, []),
+        {_, Rest2, State3} = whitespace(Rest1, State2, []),
         case parse_att_type_1(Rest2, State3, []) of
             {"(", Rest3, State4} ->
                 {T, Rest4, State5} = parse_until_right_paren(Rest3, State4, []),
-- 
2.26.2

openSUSE Build Service is sponsored by