From 25413054c11fc4b67284d4d6db48272182da1d26 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Sat, 8 Mar 2008 01:20:49 +0000
Subject: 24699: bug with ${(Q)...} on initial ">" bug with ${(z)...} on string
 with unterminated "("

---
 Src/input.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'Src/input.c')

diff --git a/Src/input.c b/Src/input.c
index 99db53e54..d6fd8d089 100644
--- a/Src/input.c
+++ b/Src/input.c
@@ -566,3 +566,15 @@ inpopalias(void)
     while (inbufflags & INP_ALIAS)
 	inpoptop();
 }
+
+
+/*
+ * Get pointer to remaining string to read.
+ */
+
+/**/
+char *
+ingetptr(void)
+{
+    return inbufptr;
+}
-- 
cgit 1.4.1