Hello community, here is the log from the commit of package guile for openSUSE:Factory checked in at 2019-07-02 10:37:19 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/guile (Old) and /work/SRC/openSUSE:Factory/.guile.new.4615 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "guile" Tue Jul 2 10:37:19 2019 rev:57 rq:712657 version:2.2.5 Changes: -------- --- /work/SRC/openSUSE:Factory/guile/guile.changes 2019-02-04 21:21:23.947654235 +0100 +++ /work/SRC/openSUSE:Factory/.guile.new.4615/guile.changes 2019-07-02 10:37:21.814487565 +0200 @@ -1,0 +2,43 @@ +Tue Jun 25 08:02:58 UTC 2019 - Jonathan Brielmaier <[email protected]> + +- Update to version 2.2.5 + Notable changes compared to 2.2.5: + * Notable improvements + ** Greatly improved performance of bidirectional pipes. + ** New 'get-bytevector-some!' I/O primitive. + ** get-bytevector-{n!,some,some!} now support suspendable I/O. + * Compiler improvements + ** guild compile: Add -Wshadowed-toplevel. + ** guild compile: Add '-x' flag. + * Miscellaneous improvements + ** Bootstrap optimization + ** put-u8 now always writes a single byte, regardless of the port encoding. + ** Optimize fixnum exact integer square roots. + ** scm_mkstrport: Optimize the POS -> BYTE_POS conversion. + ** SRFI-19: Support ~N in string->date. + ** SRFI-19: Update the leap second table. + ** stexi->shtml: Add support for @i, @math, @tie and @dots. + ** Define AT_SYMLINK_NOFOLLOW, AT_NO_AUTOMOUNT, and AT_EMPTY_PATH. + ** Improvements to the 'time' macro from (ice-9 time). + * Bug fixes + ** Avoid regexp ranges in HTTP inter-protocol exploitation check. + ** Fixes to the SRFI-19 time/date library. + ** Improve overflow checks in bytevector, string, and I/O operations. + ** Fix type inferencing for 'nil?' and 'null?' predicates. + ** Fix 'atomic-box-compare-and-swap!'. + ** Make URI handling locale independent. + ** Strings, i18n: Limit the use of alloca to approximately 8 kilobytes. + ** Fix documentation of R6RS 'binary-port?' to reflect reality. + ** Avoid passing NULL to 'memcpy' and 'memcmp'. + ** Save and restore errno in the signal handler. + ** Various smaller bug fixes + More details: /usr/share/doc/packages/guile/NEWS +- add patches: + * revert-http-reader-change.patch: Fixes https://bugs.gnu.org/36350. +- remove patches: + * guile-add-test-ja_JP.sjis.patch: proper fix included in 2.2.5 + * guile-use-utf8.patch: included in 2.2.5 + * disable-posix-crypt-test.patch: test succeeds now +- reorder patches + +------------------------------------------------------------------- Old: ---- disable-posix-crypt-test.patch guile-2.2.4.tar.xz guile-2.2.4.tar.xz.sig guile-add-test-ja_JP.sjis.patch guile-use-utf8.patch New: ---- guile-2.2.5.tar.xz guile-2.2.5.tar.xz.sig revert-http-reader-change.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ guile.spec ++++++ --- /var/tmp/diff_new_pack.bzPC71/_old 2019-07-02 10:37:22.690488898 +0200 +++ /var/tmp/diff_new_pack.bzPC71/_new 2019-07-02 10:37:22.690488898 +0200 @@ -23,7 +23,7 @@ %define libgver 1 %define gsuff %{guilemaj}_%{guilemin}-%{libgver} Name: guile -Version: %{guilevers}.4 +Version: %{guilevers}.5 Release: 0 Summary: GNU's Ubiquitous Intelligent Language for Extension License: GFDL-1.3-only AND GPL-3.0-or-later AND LGPL-3.0-or-later @@ -33,13 +33,12 @@ Source1: https://ftp.gnu.org/gnu/guile/%{name}-%{version}.tar.xz.sig Source2: https://savannah.gnu.org/project/memberlist-gpgkeys.php?group=guile&download=1#/%{name}.keyring Source3: guile-rpmlintrc -Patch0: guile-2.2-gc_pkgconfig_private.patch -Patch1: guile-add-test-ja_JP.sjis.patch -Patch2: guile-use-utf8.patch -# glibc EINVAL failure -Patch3: disable-posix-crypt-test.patch +# PATCH-FIX-UPSTREAM revert-http-reader-change.patch https://bugs.gnu.org/36350 +Patch0: revert-http-reader-change.patch +# Fix the resulting /usr/lib64/pkgconfig/guile-2.2.pc +Patch1: guile-2.2-gc_pkgconfig_private.patch # test fails always with heap error -Patch4: disable-test-out-of-memory.patch +Patch2: disable-test-out-of-memory.patch BuildRequires: gmp-devel BuildRequires: libffi-devel BuildRequires: libltdl-devel @@ -105,10 +104,7 @@ %setup -q %patch0 -p1 %patch1 -p1 -chmod +x test-suite/standalone/test-ja_JP.sjis %patch2 -p1 -%patch3 -p1 -%patch4 -p1 # remove broken prebuilt objects rm -r prebuilt/32-bit-big-endian ++++++ guile-2.2.4.tar.xz -> guile-2.2.5.tar.xz ++++++ /work/SRC/openSUSE:Factory/guile/guile-2.2.4.tar.xz /work/SRC/openSUSE:Factory/.guile.new.4615/guile-2.2.5.tar.xz differ: char 26, line 1 ++++++ revert-http-reader-change.patch ++++++ >From e1225d013ed8673382d6d8f9300dd6b175c8b820 Mon Sep 17 00:00:00 2001 From: Mark H Weaver <[email protected]> Date: Mon, 24 Jun 2019 10:24:28 -0400 Subject: Revert "web: Add support for HTTP header continuation lines." Fixes <https://bugs.gnu.org/36350>. This reverts commit 73cde5ed7218a090ecee888870908af5445796f0. --- module/web/http.scm | 31 +++++++------------------------ test-suite/tests/web-http.test | 11 +---------- 2 files changed, 8 insertions(+), 34 deletions(-) diff --git a/module/web/http.scm b/module/web/http.scm index f1ca733..de61c94 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -1,6 +1,6 @@ ;;; HTTP messages -;; Copyright (C) 2010-2017, 2019 Free Software Foundation, Inc. +;; Copyright (C) 2010-2017 Free Software Foundation, Inc. ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -152,35 +152,18 @@ The default writer will call ‘put-string’." (lambda (val port) (put-string port val))))) -(define spaces-and-tabs - (char-set #\space #\tab)) - -(define (space-or-tab? c) - (case c - ((#\space #\tab) #t) - (else #f))) - (define (read-header-line port) - "Read an HTTP header line, including any continuation lines, and -return the combined string without its final CRLF or LF. Raise a -'bad-header' exception if the line does not end in CRLF or LF, or if EOF -is reached." + "Read an HTTP header line and return it without its final CRLF or LF. +Raise a 'bad-header' exception if the line does not end in CRLF or LF, +or if EOF is reached." (match (%read-line port) (((? string? line) . #\newline) ;; '%read-line' does not consider #\return a delimiter; so if it's ;; there, remove it. We are more tolerant than the RFC in that we ;; tolerate LF-only endings. - (let ((line (if (string-suffix? "\r" line) - (string-drop-right line 1) - line))) - ;; If the next character is a space or tab, then there's at least - ;; one continuation line. Read the continuation lines by calling - ;; 'read-header-line' recursively, and append them to this header - ;; line, folding the leading spaces and tabs to a single space. - (if (space-or-tab? (lookahead-char port)) - (string-append line " " (string-trim (read-header-line port) - spaces-and-tabs)) - line))) + (if (string-suffix? "\r" line) + (string-drop-right line 1) + line)) ((line . _) ;EOF or missing delimiter (bad-header 'read-header-line line)))) diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test index c1cf088..6337734 100644 --- a/test-suite/tests/web-http.test +++ b/test-suite/tests/web-http.test @@ -1,6 +1,6 @@ ;;;; web-http.test --- HTTP library -*- mode: scheme; coding: utf-8; -*- ;;;; -;;;; Copyright (C) 2010-2011, 2014-2017, 2019 Free Software Foundation, Inc. +;;;; Copyright (C) 2010-2011, 2014-2017 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -242,15 +242,6 @@ (pass-if-round-trip "Cache-Control: acme-cache-extension=100 quux\r\n") (pass-if-round-trip "Cache-Control: acme-cache-extension=\"100, quux\"\r\n") - (let ((str "Cache-Control: acme-cache-extension=\"100,\r\n\t foo,\r\n quux\"\r\n") - (val '(cache-control . ((acme-cache-extension . "100, foo, quux"))))) - (pass-if-equal "continuation lines" - val - (call-with-values (lambda () - (read-header (open-input-string str))) - (lambda (sym val) - (cons sym val))))) - (pass-if-parse connection "close" '(close)) (pass-if-parse connection "Content-Encoding" '(content-encoding)) -- cgit v1.0-41-gc330
