From: keni <keni>
Date: Mon, 9 Jan 2012 22:42:48 +0000 (+0000)
Subject: sanity check for dlb_fopen
X-Git-Tag: MOVE2GIT~101
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=e4422424177355ee48bdbf7a7a3df725ded071a2;p=nethack

sanity check for dlb_fopen
Fail if dlb_fopen is called with a non-read mode.
---

diff --git a/src/dlb.c b/src/dlb.c
index 6f0d3fddb..50c0230f2 100644
--- a/src/dlb.c
+++ b/src/dlb.c
@@ -468,6 +468,9 @@ dlb_fopen(name, mode)
 
     if (!dlb_initialized) return (dlb *) 0;
 
+	/* only support reading; ignore possible binary flag */
+    if (!mode || mode[0] != 'r') return (dlb *)0;
+
     dp = (dlb *) alloc(sizeof(dlb));
     if (do_dlb_fopen(dp, name, mode))
     	dp->fp = (FILE *) 0;