Add support for objects schema definition in create_undef.pl

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

diff --git a/utils/create_undef.pl b/utils/create_undef.pl
index 3985a879f2dcfcb65d6ec9353e4208f674d0396f..ed9085573986c5a9d561711470bb328f18a26f2c 100755 (executable)
--- a/utils/create_undef.pl
+++ b/utils/create_undef.pl
@@ -90,7 +90,7 @@ while( my $line = <INPUT>)
        elsif ($line =~ /^create or replace view\s*(\w+)/i) {
                push (@views, $1);
        }
-       elsif ($line =~ /^create table \s*(\w+)/i) {
+       elsif ($line =~ /^create table \s*([\w\.]+)/i) {
                push (@tables, $1);
        }
        elsif ( $line =~ /^create operator class (\w+)/i ) {
@@ -124,7 +124,7 @@ while( my $line = <INPUT>)
                }
                push (@aggs, $defn)
        }
-       elsif ($line =~ /^create type (\w+)/i) {
+       elsif ($line =~ /^create type ([\w\.]+)/i) {
                push (@types, $1);
                while( not $line =~ /;\s*$/ ) {
                        $line = <INPUT>;
@@ -158,11 +158,11 @@ foreach my $table (@tables)
 print "-- Drop all aggregates.\n";
 foreach my $agg (@aggs)
 {
-       if ( $agg =~ /create aggregate\s*(\w+)\s*\(\s*.*basetype = (\w+)/ism )
+       if ( $agg =~ /create aggregate\s*([\w\.]+)\s*\(\s*.*basetype = (\w+)/ism )
        {
                print "DROP AGGREGATE $1 ($2);\n";
        }
-       elsif ( $agg =~ /create aggregate\s*(\w+)\s*\(\s*([\w,\s]+)\s*\)/ism )
+       elsif ( $agg =~ /create aggregate\s*([\w\.]+)\s*\(\s*([\w,\s]+)\s*\)/ism )
        {
                print "DROP AGGREGATE $1 ($2);\n";
        }