From 49fa65c0dd61ece622d5e26073c47f94ac74b348 Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Tue, 28 Apr 2015 15:54:34 -0400
Subject: [PATCH] Match Verilog-Perl: Fix Preproc loop under Perl-Tk, bug913.

---
 src/V3File.cpp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/V3File.cpp b/src/V3File.cpp
index d4a0b0dcb..be4bf36f7 100644
--- a/src/V3File.cpp
+++ b/src/V3File.cpp
@@ -345,6 +345,7 @@ private:
 	while (!m_readEof && (size<0 || size>sizegot)) {
 	    ssize_t todo = INFILTER_IPC_BUFSIZ;
 	    if (size>0 && size<todo) todo = size;
+	    errno = 0;
 	    ssize_t got = read (fd, buf, todo);
 	    //UINFO(9,"RD GOT g "<< got<<" e "<<errno<<" "<<strerror(errno)<<endl);  usleep(50*1000);
 	    if (got>0) {
@@ -384,6 +385,7 @@ private:
 	if (!m_pid) { v3error("--pipe-filter: write to closed file\n"); m_readEof = true; stop(); }
 	unsigned offset = 0;
 	while (!m_readEof && out.length()>offset) {
+	    errno = 0;
 	    int got = write (m_writeFd, (out.c_str())+offset, out.length()-offset);
 	    //UINFO(9,"WR GOT g "<< got<<" e "<<errno<<" "<<strerror(errno)<<endl);  usleep(50*1000);
 	    if (got>0) offset += got;