From: Sandro Santilli <strk@kbt.io>
Date: Tue, 20 Aug 2019 09:24:39 +0000 (+0000)
Subject: Fix perl syntax
X-Git-Tag: 3.0.0beta1~72
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=7d4d9a2a6a26d54f4d8f840708b5d44105ed45d6;p=postgis

Fix perl syntax

Can't "last" outside a loop block ...

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

diff --git a/regress/run_test.pl b/regress/run_test.pl
index b120c89f1..50abf466b 100755
--- a/regress/run_test.pl
+++ b/regress/run_test.pl
@@ -1367,7 +1367,7 @@ sub prepare_spatial_extensions
 
 	if ( $OPT_WITH_SFCGAL )
 	{
-		do {
+		do {{
 			my $sql = "CREATE EXTENSION postgis_sfcgal";
 			if ( $OPT_UPGRADE_FROM ) {
 				if ( semver_lessthan($OPT_UPGRADE_FROM, "2.2.0") )
@@ -1387,7 +1387,7 @@ sub prepare_spatial_extensions
 				fail "Error encountered creating EXTENSION POSTGIS_SFCGAL", $REGRESS_LOG;
 				die;
 			}
-		} while (0);
+		}} while (0);
 	}
 
  	return 1;