From 75692ce98be6a8c6152c1452abefc41dd5fd9df4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sat, 21 Mar 1998 19:25:25 -0800
Subject: [PATCH] bugfix

Rev: src/modules/files/file.c:1.79
---
 src/modules/files/file.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/modules/files/file.c b/src/modules/files/file.c
index 2a4f62c37d..73f3623971 100644
--- a/src/modules/files/file.c
+++ b/src/modules/files/file.c
@@ -6,7 +6,7 @@
 #define READ_BUFFER 8192
 
 #include "global.h"
-RCSID("$Id: file.c,v 1.78 1998/03/20 22:33:16 hubbe Exp $");
+RCSID("$Id: file.c,v 1.79 1998/03/22 03:25:25 hubbe Exp $");
 #include "fdlib.h"
 #include "interpret.h"
 #include "svalue.h"
@@ -423,6 +423,8 @@ static void file_read(INT32 args)
     if(sp[-args].type != T_INT)
       error("Bad argument 1 to file->read().\n");
     len=sp[-args].u.integer;
+    if(len<0)
+      error("Cannot read negative number of args.\n");
   }
 
   if(args > 1 && !IS_ZERO(sp+1-args))
-- 
GitLab