From e27e7644a4bf59b5a2d868f87c871a20c7910bde Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 May 2020 22:56:56 +0100
Subject: [PATCH] nailing-cargo: Fix misuse of `cfg' and rename it

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

diff --git a/nailing-cargo b/nailing-cargo
index cfb97f3..9496ebd 100755
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -170,7 +170,7 @@ sub cfg_uc {
   return $v;
 }
 
-sub cfg {
+sub cfge {
   my $exp = shift @_;
   my $v = cfg_uc @_;
   my $got = ref($v) || 'scalar';
@@ -181,14 +181,14 @@ sub cfg {
 
 sub cfgn {
   my $exp = shift @_;
-  (cfg $exp, @_) // badcfg @_, "missing";
+  (cfge $exp, @_) // badcfg @_, "missing";
 }
 
-sub cfgs  { cfg  'scalar', @_ }
+sub cfgs  { cfge 'scalar', @_ }
 sub cfgsn { cfgn 'scalar', @_ }
 
 sub cfgn_list {
-  my $l = cfg 'ARRAY', @_;
+  my $l = cfge 'ARRAY', @_;
   foreach my $x (@$l) {
     !ref $x or badcfg @_, "list contains non-scalar element";
   }
@@ -339,7 +339,7 @@ sub addargs () {
 
   if (defined $target) {
     if ($target =~ m{^[A-Z]}) {
-      $target = (cfg 'arch', $target) // $archmap{$target}
+      $target = (cfgs 'arch', $target) // $archmap{$target}
 	// die "$self: --target=$target alias specified; not in cfg or map\n";
     }
     push @ARGV, "--target=$target";
@@ -374,7 +374,7 @@ END
     $pre  =~ s/^\s+//mg; $pre  =~ s/^\s+\n/ /g;
     $post =~ s/^\s+//mg; $post =~ s/^\s+\n/ /g;
   }
-  my $addpath = (cfg qw(oot path_add)) //
+  my $addpath = (cfg_uc qw(oot path_add)) //
     $use eq 'really' ? Types::Serialiser::true : Types::Serialiser::false;
   $addpath =
     !Types::Serialiser::is_bool $addpath ? $addpath           :
-- 
2.30.2