The unpac monorepo manager self-hosting as a monorepo using unpac
Avoid infinite return of `Wrong_padding on Base64_rfc2045
+5
-1
+5
-1
vendor/opam/base64/src/base64_rfc2045.ml
+5
-1
vendor/opam/base64/src/base64_rfc2045.ml
···
143
143
`Flush {quantum; size; buffer= Bytes.sub buffer 0 2}
144
144
| _ -> assert false (* this branch is impossible, size can only ever be in the range [0..3]. *)
145
145
146
+
let wrong_padding decoder =
147
+
let k _ = `End in
148
+
decoder.k <- k ; `Wrong_padding
149
+
146
150
let rec t_decode_base64 chr decoder =
147
151
if decoder.padding = 0 then
148
152
let rec go pos = function
···
202
206
if rem < 0 then
203
207
ret
204
208
(fun decoder ->
205
-
if padding decoder.s decoder.padding then `End else `Wrong_padding )
209
+
if padding decoder.s decoder.padding then `End else wrong_padding decoder )
206
210
(t_flush decoder.s) 0 decoder
207
211
else refill decode_base64 decoder
208
212
else