From 5c60e598ca8e82a997da0eee3e3dbe20f1536842 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 11 May 2020 00:56:53 +0100
Subject: [PATCH] nailing-cargo: Provide cfg_bool

No callers yet.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 nailing-cargo | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/nailing-cargo b/nailing-cargo
index 0e351a8..c479630 100755
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -200,6 +200,12 @@ sub cfgn {
 sub cfgs  { cfge 'scalar', @_ }
 sub cfgsn { cfgn 'scalar', @_ }
 
+sub cfg_bool {
+  my $v = cfg_uc @_;
+  return $v if !defined($v) || Types::Serialiser::is_bool $v;
+  badcfg @_, "expected boolean";
+}
+
 sub cfgn_list {
   my $l = cfge 'ARRAY', @_;
   foreach my $x (@$l) {
-- 
2.30.2