suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Handle unexpected eof after =.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-04-09 13:44:53 -04:00
parent c239ef7327
commit a38834ebf2
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
net-lib/net/qp.rkt
View File

@ -77,6 +77,9 @@
(loop (read-byte in)) (loop (read-byte in))
;; Not a LF? Well, ok. ;; Not a LF? Well, ok.
(loop next-next)))] (loop next-next)))]
[(eof-object? next)
(warning "Illegal qp sequence: `='")
(display "=" out)]
[(hex-digit? next) [(hex-digit? next)
(let ([next-next (read-byte in)]) (let ([next-next (read-byte in)])
(cond [(eof-object? next-next) (cond [(eof-object? next-next)

3
net-test/tests/net/encoders.rkt
View File

@ -79,7 +79,8 @@
do (check-same-all base64-encode-stream do (check-same-all base64-encode-stream
base64-decode-stream base64-decode-stream
#rx#"^[0-9a-zA-Z+=/]*$" #rx#"^[0-9a-zA-Z+=/]*$"
72))) 72))
(test (qp-decode #"=20=") #" ="))
#| #|
Use this to compare base64 encode/decode against the unix utilities Use this to compare base64 encode/decode against the unix utilities