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 b120c89f1a84095adb55506fe433a7138c354abe..50abf466bf23a50e098f61568af356cae637b5b6 100755 (executable)
--- 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;