From 7ba60f1e59378fc697f9b60eb3cbbe88d8c7f058 Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Sun, 27 Sep 2015 08:04:33 +0300 Subject: Minor fix. * Sendmail.mib2c: Use printflush to output initial warning --- Sendmail.mib2c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Sendmail.mib2c b/Sendmail.mib2c index db43f43..05f60b6 100644 --- a/Sendmail.mib2c +++ b/Sendmail.mib2c @@ -101,13 +101,14 @@ registerAgent($@agent, '$rootoid', $@oidtable); @close ${tempfile}@ @startperl@ use File::Copy; +use IO::Handle; use autodie; print "creating $vars{name}\n"; open(FILE, '>', $vars{name}); -print FILE "# THIS FILE IS GENERATED AUTOMATICALLY. PLEASE DO NOT EDIT.\n"; +printflush FILE "# THIS FILE IS GENERATED AUTOMATICALLY. PLEASE DO NOT EDIT.\n"; copy($vars{prologue}, \*FILE) if defined $vars{prologue}; copy($vars{tempfile}, \*FILE); -- cgit v1.2.1