[Guile-commits] GNU Guile branch, branch_release-1-8, updated. release_1-8-6-54-gd2cb6b1

[Neil Jerram]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=d2cb6b102b16ff074c0e6a3dd7f8f280558d5404

The branch, branch_release-1-8 has been updated
       via  d2cb6b102b16ff074c0e6a3dd7f8f280558d5404 (commit)
      from  66f3b6c1b043b814663668b5f83210c6e8d1e12d (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit d2cb6b102b16ff074c0e6a3dd7f8f280558d5404
Author: Neil Jerram <address@hidden>
Date:   Sat Jun 6 00:08:30 2009 +0100

    Fix popen.test on NetBSD and Ubuntu Jaunty, where sh is not Bash
    
    Thanks to Greg Troxel for reporting, and Barry Fishman for the
    explanation and fix.
    
    * test-suite/tests/popen.test ("open-input-pipe"): Use shell function
      `read' with an explicit argument, as apparently not all shells
      support read with no argument.

-----------------------------------------------------------------------

Summary of changes:
 THANKS                      |    1 +
 test-suite/tests/popen.test |    2 +-
 2 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/THANKS b/THANKS
index 1d94a5a..5b590fd 100644
--- a/THANKS
+++ b/THANKS
@@ -37,6 +37,7 @@ For fixes or providing information which led to a fix:
          John W Eaton
        Clinton Ebadi
           David Fang
+          Barry Fishman
         Charles Gagnon
           Peter Gavin
            Eric Gillespie, Jr
diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test
index 08bfa7c..9cc68f2 100644
--- a/test-suite/tests/popen.test
+++ b/test-suite/tests/popen.test
@@ -77,7 +77,7 @@
     (let* ((p2c (pipe))
            (port (with-input-from-port (car p2c)
                    (lambda ()
-                     (open-input-pipe "read && echo $REPLY")))))
+                     (open-input-pipe "read line && echo $line")))))
       (display "hello\n" (cdr p2c))
       (force-output (cdr p2c))
       (let ((result (eq? (read port) 'hello)))


hooks/post-receive
-- 
GNU Guile