diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2015-09-27 08:04:33 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2015-09-27 08:04:33 +0300 |
commit | 7ba60f1e59378fc697f9b60eb3cbbe88d8c7f058 (patch) | |
tree | 6f9d31ee71f4afb59920b85e27bfb182be9c31ba | |
parent | e6e8ba0bb7f238ed622f62d67413f25992064ec9 (diff) | |
download | netsnmp-sendmail-7ba60f1e59378fc697f9b60eb3cbbe88d8c7f058.tar.gz netsnmp-sendmail-7ba60f1e59378fc697f9b60eb3cbbe88d8c7f058.tar.bz2 |
Minor fix.
* Sendmail.mib2c: Use printflush to output initial warning
-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 @@ -98,19 +98,20 @@ $vars{rootoid} = '.' . join('.', $oid->to_array()); my $@agent = new NetSNMP::agent('Name' => '$agentname'); 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); copy($vars{epilogue}, \*FILE) if defined $vars{epilogue}; # Use concatenation to prevent Emacs from handling this as local variables |