Allow alternate underscore format for bucardo, e.g. "bucardo list_dbgroups"

diff --git a/bucardo b/bucardo
index b29c2c1c7807965bdd34e435acedbc15820a9cb0..f4306f350ff88c03e509d30c0310a42a62bbbcb7 100755 (executable)
--- a/bucardo
+++ b/bucardo
@@ -213,6 +213,13 @@ help() unless $verb;
 ## Standardize the verb as lowercase, and grab the rest of the args as the "nouns"
 $verb = lc $verb;
 my @nouns = @ARGV;
+
+## Allow alternate underscore format
+if ($verb =~ /^(\w+)_(\w+)$/) {
+    $verb = $1;
+    unshift @nouns => $2;
+}
+
 ## Make a single string version, mostly for output in logs
 my $nouns = join ' ' => @nouns;
 ## The verb may have a helper, usually a number