Simplify perl code

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

diff --git a/regress/run_test.pl b/regress/run_test.pl
index 50abf466bf23a50e098f61568af356cae637b5b6..dabb5d2434ff7fe7e58f959f81230e30d1e5541b 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 {{
+               {
                        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);
+               }
        }
 
        return 1;