aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Thorsen <[email protected]>2019-03-20 12:13:49 +0100
committerLars Thorsen <[email protected]>2019-03-20 12:13:49 +0100
commita4defddf3397a7e1d0e85bb1b04f6c13c7c5a88f (patch)
tree9920c3254e0c24ec8ebcc40df4fa3963ea7ae887
parentb1c6356a9d3cd8d6e9767a4252eb0bcc1602664b (diff)
downloadotp-a4defddf3397a7e1d0e85bb1b04f6c13c7c5a88f.tar.gz
otp-a4defddf3397a7e1d0e85bb1b04f6c13c7c5a88f.tar.bz2
otp-a4defddf3397a7e1d0e85bb1b04f6c13c7c5a88f.zip
[xmerl] Normalize attribute correctly when references are used
-rw-r--r--lib/xmerl/src/xmerl_scan.erl13
1 files changed, 10 insertions, 3 deletions
diff --git a/lib/xmerl/src/xmerl_scan.erl b/lib/xmerl/src/xmerl_scan.erl
index 0b7f378c77..d76ed5c820 100644
--- a/lib/xmerl/src/xmerl_scan.erl
+++ b/lib/xmerl/src/xmerl_scan.erl
@@ -2415,10 +2415,17 @@ scan_att_chars("&" ++ T, S0, Delim, Acc, TmpAcc,AT,IsNorm) -> % Reference
%% normalization rules (sec 3.3.3) require that for
%% character references, the referenced character be
%% added directly to the normalized value
- scan_att_chars(T1, S1, Delim, ExpRef ++ Acc,TmpAcc, AT,IsNorm);
+ {T2,S2,IsNorm2} =
+ if
+ ?whitespace(hd(ExpRef)) ->
+ normalize(T1, S1, IsNorm);
+ true ->
+ {T1, S1, IsNorm}
+ end,
+ scan_att_chars(T2, S2, Delim, ExpRef ++ Acc, TmpAcc, AT, IsNorm2);
_ ->
Ch = string_to_char_set(S#xmerl_scanner.encoding, ExpRef),
- scan_att_chars(Ch ++ T1, S1, Delim, Acc,TmpAcc, AT,IsNorm)
+ scan_att_chars(Ch ++ T1, S1, Delim, Acc, TmpAcc, AT, IsNorm)
end
end;
scan_att_chars("<" ++ _T, S0, _Delim, _Acc,_, _,_) -> % Tags not allowed here
@@ -3964,7 +3971,7 @@ normalize(T,S,IsNorm) ->
{_,T,S} ->
{T,S,IsNorm};
{_,T1,S1} ->
- {T1,S1,true}
+ normalize(T1,S1,true)
end.