From 96bf7bb27acd35cae31e88acf717d6b832f51fc4 Mon Sep 17 00:00:00 2001
From: qwell <qwell@f38db490-d61c-443f-a65b-d21fe96a405b>
Date: Wed, 9 Apr 2008 17:56:07 +0000
Subject: [PATCH] Fix a small file handle "leak" pointed out by jjshoe on
 #asterisk.

git-svn-id: http://svn.digium.com/svn/asterisk/trunk@113838 f38db490-d61c-443f-a65b-d21fe96a405b
---
 contrib/scripts/astcli | 1 +
 1 file changed, 1 insertion(+)

diff --git a/contrib/scripts/astcli b/contrib/scripts/astcli
index 635de5841..ed942eeed 100755
--- a/contrib/scripts/astcli
+++ b/contrib/scripts/astcli
@@ -80,6 +80,7 @@ sub process_credentials {
 		(undef,$host) = split(/[,=]/, $_) if $_ =~ /host(name)?[,=]/i;
 		(undef,$port) = split(/[,=]/, $_) if $_ =~ /port(num|no)?[,=]/i;
 	}
+	close ($fh);
 }
 
 sub usage {