summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--Src/builtin.c3
-rw-r--r--Test/B04read.ztst6
3 files changed, 13 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 13655b070..50228f4c4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-09 Peter Stephenson <pws@csr.com>
+
+ * 18836: Src/builtin.c, Test/B04read.ztst: `read -d' failed with
+ metafied delimiters, in particular null.
+
2003-07-07 Peter Stephenson <pws@csr.com>
* 18824: Functions/Zle/kill-word-match: deleted to the end
diff --git a/Src/builtin.c b/Src/builtin.c
index f8a713152..bdb7c72d8 100644
--- a/Src/builtin.c
+++ b/Src/builtin.c
@@ -4231,7 +4231,8 @@ bin_read(char *name, char **args, Options ops, int func)
}
}
if (OPT_ISSET(ops,'d')) {
- delim = *OPT_ARG(ops,'d');
+ char *delimstr = OPT_ARG(ops,'d');
+ delim = (delimstr[0] == Meta) ? delimstr[1] ^ 32 : delimstr[0];
if (SHTTY != -1) {
struct ttyinfo ti;
gettyinfo(&ti);
diff --git a/Test/B04read.ztst b/Test/B04read.ztst
index 45a3486af..5efbf24ca 100644
--- a/Test/B04read.ztst
+++ b/Test/B04read.ztst
@@ -63,3 +63,9 @@
0:read with timeout (no waiting should occur)
>hello
>0
+
+ print -n 'Testing the\0null hypothesis\0' |
+ while read -d $'\0' line; do print $line; done
+0:read with null delimiter
+>Testing the
+>null hypothesis