[postgis-tickets] r17864 - Use older perl idiom to allow build on

[Paul Ramsey]

Author: pramsey
Date: 2019-10-06 18:31:00 -0700 (Sun, 06 Oct 2019)
New Revision: 17864

Modified:
   trunk/utils/postgis_proc_upgrade.pl
Log:
Use older perl idiom to allow build on
older platforms still


Modified: trunk/utils/postgis_proc_upgrade.pl
===================================================================
--- trunk/utils/postgis_proc_upgrade.pl	2019-10-07 01:29:38 UTC (rev 17863)
+++ trunk/utils/postgis_proc_upgrade.pl	2019-10-07 01:31:00 UTC (rev 17864)
@@ -270,7 +270,9 @@
             die "ERROR: no last updated info for aggregate '${aggsig}'\n";
         }
 
-        my $pg12_def = $def =~ s/CREATE AGGREGATE/CREATE OR REPLACE AGGREGATE/r;
+		my $pg12_def = $def;
+		$pg12_def =~ s/CREATE AGGREGATE/CREATE OR REPLACE AGGREGATE/;
+
         if ($pg12_def eq "")
         {
             $pg12_def = "RAISE EXCEPTION 'Could not parse AGGREGATE'";