From 2a03ce35be9b900cc0fd5f305dec54ebcf3fed5a Mon Sep 17 00:00:00 2001
From: Bill MacAllister <whm@dropbox.com>
Date: Tue, 29 Dec 2015 13:57:37 -0800
Subject: Add in missing use statement for Sys::Syslog

---
 perl/lib/Wallet/Kadmin/AD.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl/lib/Wallet/Kadmin')

diff --git a/perl/lib/Wallet/Kadmin/AD.pm b/perl/lib/Wallet/Kadmin/AD.pm
index 30d4e9e..4efc643 100644
--- a/perl/lib/Wallet/Kadmin/AD.pm
+++ b/perl/lib/Wallet/Kadmin/AD.pm
@@ -25,6 +25,7 @@ use Wallet::Kadmin ();
 use Authen::SASL ();
 use Net::LDAP;
 use IPC::Run qw( run timeout );
+use Sys::Syslog qw( :standard :macros );
 
 @ISA = qw(Wallet::Kadmin);
 
@@ -146,7 +147,7 @@ sub msktutil {
     my @cmd  = ($Wallet::Config::AD_MSKTUTIL);
     push @cmd, @args;
     if ($Wallet::Config::AD_DEBUG) {
-        $self->ad_debug(LOG_DEBUG, join(' ', @cmd));
+        $self->ad_debug('debug', join(' ', @cmd));
     }
 
     my $in;
@@ -176,7 +177,7 @@ sub msktutil {
         }
     }
     if ($Wallet::Config::AD_DEBUG) {
-        $self->ad_debug(LOG_DEBUG, $out);
+        $self->ad_debug('debug', $out);
     }
     return $out;
 }
@@ -294,7 +295,7 @@ sub create {
     }
     if ($self->exists($principal)) {
         if ($Wallet::Config::AD_DEBUG) {
-            $self->ad_debug(LOG_DEBUG, "$principal exists");
+            $self->ad_debug('debug', "$principal exists");
         }
         return 1;
     }
-- 
cgit v1.2.3