From 81d662ee1fa70e2f91e1d6fa52d3621146c10d61 Mon Sep 17 00:00:00 2001
From: Richard PALO <richard@netbsd.org>
Date: Sun, 11 Jan 2015 14:40:51 -0800
Subject: [PATCH] 5516 perl problems in libbsm/auditxml Reviewed by: Richard
 Lowe <richlowe@richlowe.net> Approved by: Robert Mustacchi <rm@joyent.com>

---
 usr/src/lib/libbsm/auditxml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/usr/src/lib/libbsm/auditxml b/usr/src/lib/libbsm/auditxml
index 42fbf8bd9d..6107b059eb 100644
--- a/usr/src/lib/libbsm/auditxml
+++ b/usr/src/lib/libbsm/auditxml
@@ -53,6 +53,9 @@ my $appDebug = 0; # used after return from "new auditxml";
 
 # Process command-line options
 our ($opt_d, $opt_e, $opt_i, $opt_o);
+$opt_e = "";
+$opt_i = "";
+$opt_o = "";
 if (!getopts('de:i:o:') || $#ARGV != 0) {
     die $usage;
 }
@@ -707,7 +710,7 @@ sub generateTableC {
 	}
 	my ($xlate, $jni) =
 	  formatTableEntry ('', $tokenId, $eventId, '', 0, 0,
-			    $tokenOrder[$sequence], 'NULL', $omit);
+			    $tokenOrder[$sequence], 'NULL', '', $omit);
 	push (@xlateEntryList, $xlate);
       }
       else {
-- 
2.11.4.GIT