From e6b6a291747f1a01081d6376bd787f1c2c00c589 Mon Sep 17 00:00:00 2001
From: Sandro Santilli <strk@keybit.net>
Date: Fri, 19 Nov 2004 17:39:33 +0000
Subject: [PATCH] Massaged to work with pg_dump-7.2 and pg_restore-7.2

git-svn-id: http://svn.osgeo.org/postgis/trunk@1107 b70326c6-7e19-0410-871a-916f4a2858ee
---
 utils/postgis_restore.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/utils/postgis_restore.pl b/utils/postgis_restore.pl
index 5b0eb32ab..d7b75dc38 100644
--- a/utils/postgis_restore.pl
+++ b/utils/postgis_restore.pl
@@ -265,8 +265,12 @@ while( my $line = <INPUT> )
 	if ($line =~ / FUNCTION *([^ ]*) *\(([^)]*)\)/)
 	{
 		my $funcname = $1;
-		#print "FUNCNAME: [$funcname]\n";
 		my @args = split(",", $2);
+
+		$funcname =~ s/^"//;
+		$funcname =~ s/"$//;
+		#print "FUNCNAME: [$funcname]\n";
+
 		#print "ARGS: [".@args."]\n";
 		my $wkbinvolved = 0;
 		for (my $i=0; $i<@args; $i++)
-- 
2.40.0