Fix a small file handle "leak" pointed out by jjshoe on #asterisk.
authorJason Parker <jparker@digium.com>
Wed, 9 Apr 2008 17:56:07 +0000 (17:56 +0000)
committerJason Parker <jparker@digium.com>
Wed, 9 Apr 2008 17:56:07 +0000 (17:56 +0000)
git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@113838 65c4cc65-6c06-0410-ace0-fbb531ad65f3

contrib/scripts/astcli

index 635de58..ed942ee 100755 (executable)
@@ -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 {