Log Message:
-----------
Added a function that can throw "public." on the front of objects that
didn't have namespaces defined, and uses that throughout so that we
don't _force_ any objects to be in the "public" namespace.

Modified Files:
--------------
    slony1-engine/tools/altperl:
        create_set.pl (r1.1 -> r1.2)

-------------- next part --------------
Index: create_set.pl
===================================================================
RCS file: /usr/local/cvsroot/slony1/slony1-engine/tools/altperl/create_set.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -Ltools/altperl/create_set.pl -Ltools/altperl/create_set.pl -u -w -r1.1 -r1.2
--- tools/altperl/create_set.pl
+++ tools/altperl/create_set.pl
@@ -19,10 +19,10 @@
 
 foreach my $table (@SERIALTABLES) {
  print OUTFILE "
-		echo '  Adding unique key to table public.$table...';
+		echo '  Adding unique key to table $table...';
 		table add key (
 		    node id=1,
-		    full qualified name='public.$table'
+		    full qualified name='$table'
 		);
 ";
 }
@@ -58,10 +58,10 @@
   if ($table =~ /^(.*\..*)$/) {
     # Table has a namespace specified
   } else {
-    $table = "public.$table";
+    $table = "$table";
   }
     print OUTFILE "
-		set add table (set id = $set, origin = 1, id = $TABLE_ID, full qualified name = '$table', comment = 'Table public.$table', key=serial);
+		set add table (set id = $set, origin = 1, id = $TABLE_ID, full qualified name = '$table', comment = 'Table $table', key=serial);
                 echo 'Add unkeyed table $table';
 "; 
   $TABLE_ID++;
@@ -74,7 +74,7 @@
     $table = "public.$table";
   }
   print OUTFILE "
-		set add table (set id = $set, origin = 1, id = $TABLE_ID, full qualified name = '$table', comment = 'Table public.$table');
+		set add table (set id = $set, origin = 1, id = $TABLE_ID, full qualified name = '$table', comment = 'Table $table');
                 echo 'Add keyed table $table';
 ";
   $TABLE_ID++;
@@ -98,7 +98,7 @@
     $seq = "public.$seq";
   }
   print OUTFILE "
-                set add sequence (set id = $set, origin = 1, id = $SEQID, full qualified name = '$seq', comment = 'Sequence public.$seq');
+                set add sequence (set id = $set, origin = 1, id = $SEQID, full qualified name = '$seq', comment = 'Sequence $seq');
                 echo 'Add sequence $seq';
 ";
   $SEQID++;