From 439a4b9c45ea7dbc153aea86f105a7d1aaac7bc3 Mon Sep 17 00:00:00 2001
From: Russ Allbery <eagle@eyrie.org>
Date: Sun, 27 May 2018 17:57:40 -0700
Subject: Fix syntax error in Wallet::Kadmin::AD

---
 perl/lib/Wallet/Kadmin/AD.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/lib/Wallet/Kadmin/AD.pm b/perl/lib/Wallet/Kadmin/AD.pm
index 61597cf..9dfca79 100644
--- a/perl/lib/Wallet/Kadmin/AD.pm
+++ b/perl/lib/Wallet/Kadmin/AD.pm
@@ -42,7 +42,7 @@ sub ad_syslog {
         openlog('wallet-server', 'ndelay,nofatal', 'local3');
         $self->{SYSLOG} = 1;
     }
-    if ($l !~ /^(debug|info|err|warning/xms)$) {
+    if ($l !~ /^(debug|info|err|warning)$/xms) {
         $l = 'err';
     }
     syslog($l, $m);
-- 
cgit v1.2.3