aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2015-09-27 08:04:33 +0300
committerSergey Poznyakoff <gray@gnu.org>2015-09-27 08:04:33 +0300
commit7ba60f1e59378fc697f9b60eb3cbbe88d8c7f058 (patch)
tree6f9d31ee71f4afb59920b85e27bfb182be9c31ba
parente6e8ba0bb7f238ed622f62d67413f25992064ec9 (diff)
downloadnetsnmp-sendmail-7ba60f1e59378fc697f9b60eb3cbbe88d8c7f058.tar.gz
netsnmp-sendmail-7ba60f1e59378fc697f9b60eb3cbbe88d8c7f058.tar.bz2
Minor fix.
* Sendmail.mib2c: Use printflush to output initial warning
-rw-r--r--Sendmail.mib2c3
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

Return to:

Send suggestions and report system problems to the System administrator.