From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 24 Apr 2016 22:30:30 +0000 (+0100)
Subject: with-authinfo-kludge: Add in some missing sigils.
X-Git-Tag: 0.1.0~12
X-Git-Url: https://git.distorted.org.uk/~mdw/with-authinfo-kludge/commitdiff_plain/4ed4f0661074881f23bb25fd296e6dc9111de1ac?hp=e8e64c07398b864c88e709ce90e902151f95268b

with-authinfo-kludge: Add in some missing sigils.

Perl 5.20 helpfully warned about these where 5.14 didn't bother.
---

diff --git a/with-authinfo-kludge b/with-authinfo-kludge
index d98aa83..fae87b5 100755
--- a/with-authinfo-kludge
+++ b/with-authinfo-kludge
@@ -200,7 +200,7 @@ sub chew_cli_server_configs (\@) {
 
   ARG: for (;;) {
     last ARG unless @$args;
-    my $arg = shift $args;
+    my $arg = shift @$args;
     if ($arg eq "+") { last ARG; }
     elsif ($arg =~ /^\+/) {
       $server = substr $arg, 1;
@@ -298,7 +298,7 @@ sub dump_configuration () {
 
   for my $s (sort keys %S) {
     inform "Server `$s' parameters...";
-    for my $p (sort keys $S{$s}) { inform_param $p, $S{$s}{$p}; }
+    for my $p (sort keys %{$S{$s}}) { inform_param $p, $S{$s}{$p}; }
   }
 }