diff options
-rw-r--r-- | Sendmail.mib2c | 3 |
1 files changed, 2 insertions, 1 deletions
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); |