From c49aa602838b359080c45d0bdb96367c77189cbb Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Thu, 15 Jul 1999 21:14:07 +0200
Subject: [PATCH] more fault tolerant to files that doesn't exist
Rev: bin/mkwmml.pike:1.18
---
bin/mkwmml.pike | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/bin/mkwmml.pike b/bin/mkwmml.pike
index 2a38bd822c..1dd718a940 100644
--- a/bin/mkwmml.pike
+++ b/bin/mkwmml.pike
@@ -1,4 +1,4 @@
-/* $Id: mkwmml.pike,v 1.17 1999/07/02 19:23:48 mirar Exp $ */
+/* $Id: mkwmml.pike,v 1.18 1999/07/15 19:14:07 mirar Exp $ */
import Stdio;
import Array;
@@ -538,6 +538,12 @@ int main(int ac,string *files)
{
if (t=="") { f=0; continue; }
t=f->read(8192);
+ if (!t)
+ {
+ werror("mkwmml: failed to read %O\n",currentfile);
+ f=0;
+ continue;
+ }
s=ss[0];
ss=t/"\n";
ss[0]=s+ss[0];
--
GitLab