[Guile-commits] GNU Guile branch, master, updated. 12798872ff39e27dbcf90675c3d3554ae27df750

[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=12798872ff39e27dbcf90675c3d3554ae27df750

The branch, master has been updated
       via  12798872ff39e27dbcf90675c3d3554ae27df750 (commit)
      from  a23c940b717413139d294d4f5c443b8d165f42a9 (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 12798872ff39e27dbcf90675c3d3554ae27df750
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 c347abc..e3cf1e3 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