From 0c25fc801c1d1f36aae6f20935ccb98167225f5e Mon Sep 17 00:00:00 2001
From: Dennis Bell <dennis.j.bell@gmail.com>
Date: Fri, 11 Nov 2022 14:39:34 -0800
Subject: [PATCH] Fix parser for vault descriptor

---
 lib/Genesis/Vault.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/Genesis/Vault.pm b/lib/Genesis/Vault.pm
index b7b58c2e..a52c1218 100644
--- a/lib/Genesis/Vault.pm
+++ b/lib/Genesis/Vault.pm
@@ -332,15 +332,15 @@ sub parse_vault_descriptor {
 	$vault_info =~ s/ as ([^ ]*) / / and $alias = $1;
 	for my $clause (split(' ',$vault_info)) {
 		if ($clause =~ /^(no-)?strongbox$/) {
-			$strongbox = !$1;
+			$strongbox = $1 ? 0 : 1;
 		} elsif ($clause =~ /^(no-)?verify/) {
-			$verify = !$1;
+			$verify = $1 ? 0 : 1;
 		} elsif ($clause =~ /^(http(s)?:\/\/([^:]*)(?::([0-9]+))?)(?:\/(.*))?$/) {
 			$url = $1;
 			$tls = ($2||'' eq 's');
-			$domain = $4;
-			$port = $5;
-			$namespace = $6;
+			$domain = $3;
+			$port = $4;
+			$namespace = $5;
 		} else {
 			$ENV{GENESIS_TRACE}=1;
 			dump_stack();