 |
Respect RFC in regards to fields number - clic - Clic is an command line intera… |
 |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit 4878ed433802ca7d743d3976987c94be4561b6a6 |
|
parent ce069ce71e3dfd569110f0596f74d2693afb7c74 |
|
Author: Solene Rapenne <[email protected]> |
|
Date: Mon, 11 Mar 2019 14:22:01 +0100 |
|
|
|
Respect RFC in regards to fields number |
|
|
|
Diffstat: |
|
M clic.lisp | 3 ++- |
|
|
|
1 file changed, 2 insertions(+), 1 deletion(-) |
|
--- |
|
diff --git a/clic.lisp b/clic.lisp |
|
@@ -144,6 +144,7 @@ |
|
sock |
|
:external-format '(:utf-8 :eol-style :lf) |
|
:unwrap-stream-p t |
|
+ ;;:verify nil |
|
:hostname host))) |
|
;; store in metadata that we are using TLS |
|
(setf (location-tls (car *history*)) t) |
|
@@ -184,7 +185,7 @@ |
|
(field (split (subseq line 1) #\Tab))) |
|
|
|
;; if split worked |
|
- (when (= (length field) 4) |
|
+ (when (>= (length field) 4) |
|
(let ((line-number (+ 1 (hash-table-count *links*))) |
|
(text (car field)) |
|
(uri (cadr field)) |
