fence-agents: master - fence_vmware: Fix VMware helper script to force stdout close

fence-agents: master - fence_vmware: Fix VMware helper script to force stdout close

[Jan Friesse]

Gitweb:        http://git.fedorahosted.org/git/fence-agents.git?p=fence-agents.git;a=commitdiff;h=172523ace63c4c07dd8f4b24135eca2299797432
Commit:        172523ace63c4c07dd8f4b24135eca2299797432
Parent:        fe01865cf8a2f8535c865c4332952863230c2718
Author:        Jan Friesse <jfriesse@redhat.com>
AuthorDate:    Fri Feb 20 09:19:05 2009 +0100
Committer:     Jan Friesse <jfriesse@redhat.com>
CommitterDate: Fri Feb 20 09:19:05 2009 +0100

fence_vmware: Fix VMware helper script to force stdout close

This feature is advise from Jim Meyering. On the beginning
of script, we register end callback, which close stdout and
show error, if this wasn't successful.
---
 fence/agents/vmware/fence_vmware_helper.pl |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/fence/agents/vmware/fence_vmware_helper.pl b/fence/agents/vmware/fence_vmware_helper.pl
index 5715d55..815728d 100644
--- a/fence/agents/vmware/fence_vmware_helper.pl
+++ b/fence/agents/vmware/fence_vmware_helper.pl
@@ -3,6 +3,15 @@
 use strict;
 use warnings;
 
+my $ME = $0;
+
+END {
+  defined fileno STDOUT or return;
+  close STDOUT and return;
+  warn "$ME: failed to close standard output: $!\n";
+  $? ||= 1;
+}
+
 my ($RELEASE_VERSION, $REDHAT_COPYRIGHT, $BUILD_DATE);
 
 #BEGIN_VERSION_GENERATION