Log Message:
-----------
Cluster names need to be quoted in case they are in caps.

Modified Files:
--------------
    slony1-engine/tools:
        test_slony_replication.pl (r1.2 -> r1.3)

-------------- next part --------------
Index: test_slony_replication.pl
===================================================================
RCS file: /usr/local/cvsroot/slony1/slony1-engine/tools/test_slony_replication.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -Ltools/test_slony_replication.pl -Ltools/test_slony_replication.pl -u -w -r1.2 -r1.3
--- tools/test_slony_replication.pl
+++ tools/test_slony_replication.pl
@@ -49,8 +49,8 @@
 # Query to find the "master" node
 my $masterquery = "
   select sub_provider 
-   from _$cluster.sl_subscribe s1 
-   where not exists (select * from _$cluster.sl_subscribe s2 
+   from "_$cluster".sl_subscribe s1 
+   where not exists (select * from "_$cluster".sl_subscribe s2 
                                 where s2.sub_receiver = s1.sub_provider and 
                                            s1.sub_set = $set and s2.sub_set = $set and
                                            s1.sub_active = 't' and s2.sub_active = 't')
@@ -72,8 +72,8 @@
 my $dsnsquery =
 "
    select p.pa_server, p.pa_conninfo
-   from _$cluster.sl_path p
-   where exists (select * from _$cluster.sl_subscribe s where 
+   from "_$cluster".sl_path p
+   where exists (select * from "_$cluster".sl_subscribe s where 
                           s.sub_set = $set and 
                           (s.sub_provider = p.pa_server or s.sub_receiver = p.pa_server) and
                           sub_active = 't')
@@ -253,7 +253,7 @@
     print "Status:  PGRES_CONNECTION_BAD\n";
     return;
   }
-  my $livequery = qq{ select * from _$cluster.sl_subscribe s1 where sub_set = $set and sub_receiver = $node and sub_active;};
+  my $livequery = qq{ select * from "_$cluster".sl_subscribe s1 where sub_set = $set and sub_receiver = $node and sub_active;};
   print "Query: $livequery\n";
   my $result = $slave->exec($livequery);
   while (my @row = $result->fetchrow) {