From 60dd5739f2deab8ea703d2165e36a2dc04c7386a Mon Sep 17 00:00:00 2001
From: David Hilvert <dhilvert@auricle.dyndns.org>
Date: Sat, 17 Mar 2007 07:12:00 +0000
Subject: [PATCH] d2/tfile.h: Call ungetc() when test for non-primary
 transformation command fails.

darcs-hash:20070317071207-d1b56-2d74b6bb664e4aae6b4463ad510a151a0c2a2b93.gz
---
 d2/tfile.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/d2/tfile.h b/d2/tfile.h
index f944dae..77826d3 100644
--- a/d2/tfile.h
+++ b/d2/tfile.h
@@ -401,6 +401,8 @@ static inline transformation tload_next(struct tload_t *t, int is_p,
 	while (t && !feof(t->file)) {
 
 		char c = fgetc(t->file);
+		if (!feof(t->file) && c != EOF)
+			ungetc(c, t->file);
 
 		if (feof(t->file)
 		 || (!is_primary
@@ -410,8 +412,6 @@ static inline transformation tload_next(struct tload_t *t, int is_p,
 		  && c != 'Q'
 		  && c != 'q')) {
 			return result;
-		} else {
-			ungetc(c, t->file);
 		}
 
 		char line[1024];
-- 
2.11.4.GIT