From: Sandro Santilli <strk@keybit.net>
Date: Wed, 16 Oct 2013 16:12:39 +0000 (+0000)
Subject: Close opened filedescriptors after use. Might help with #2509
X-Git-Tag: 2.2.0rc1~1326
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=73544e5fad7aa5a295dbd6bd952eac2c9875419a;p=postgis

Close opened filedescriptors after use. Might help with #2509

git-svn-id: http://svn.osgeo.org/postgis/trunk@12038 b70326c6-7e19-0410-871a-916f4a2858ee
---

diff --git a/regress/run_test.pl b/regress/run_test.pl
index 37dc04dca..d903447e1 100755
--- a/regress/run_test.pl
+++ b/regress/run_test.pl
@@ -467,6 +467,7 @@ sub run_simple_sql
 	# Check for ERROR lines
 	open FILE, "$tmpfile";
 	my @lines = <FILE>;
+	close FILE;
 	my @errors = grep(/^ERROR/, @lines);
 	
 	if ( @errors > 0 )
@@ -930,6 +931,7 @@ sub run_dumper_test
   # Produce the output SHP file.
   open DUMPFILE, "$dump_file" or die "Cannot open dump file $dump_file\n";
   my @dumplines = <DUMPFILE>;
+  close DUMPFILE;
   my $dumpstring = join '', @dumplines;
   chop($dumpstring);
   my @cmd = ("${PGSQL2SHP}", "-f", ${shpfile}, ${DB}, ${dumpstring});