From fbcb72719ba76ea9a300cc7d357e4c553bb08137 Mon Sep 17 00:00:00 2001
From: David Christensen <david@endpoint.com>
Date: Fri, 17 Apr 2015 13:09:51 -0500
Subject: [PATCH] Allow dashes in valid schema and table names

---
 bucardo | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bucardo b/bucardo
index 39a4c76c4..6a3858f2e 100755
--- a/bucardo
+++ b/bucardo
@@ -5051,7 +5051,7 @@ sub add_items_to_goat_table {
     for my $rel (sort { $a->{name} cmp $b->{name} } @$info) {
         # XXX Is it safe to assume UTF8 encoding here? Probably not
         my $name = $rel->{name};
-        if ($name !~ /^([\w ]+)\.([\w ]+)$/o) {
+        if ($name !~ /^([-\w ]+)\.([-\w ]+)$/o) {
             die qq{Invalid name, got "$name", but expected format "schema.relname"};
         }
         my ($schema,$table) = ($1,$2);
-- 
2.39.5