Merged revisions 113838 via svnmerge from

https://origsvn.digium.com/svn/asterisk/trunk

........
r113838 | qwell | 2008-04-09 12:56:07 -0500 (Wed, 09 Apr 2008) | 2 lines

Fix a small file handle "leak" pointed out by jjshoe on #asterisk.

........


git-svn-id: https://origsvn.digium.com/svn/asterisk/branches/1.6.0@113839 65c4cc65-6c06-0410-ace0-fbb531ad65f3

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 {