5516 perl problems in libbsm/auditxml
Reviewed by: Richard Lowe <richlowe@richlowe.net>

@@ -51,10 +51,13 @@
                # want.
 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;
 }
 my $outdir = $opt_o || ".";
 my $pfx_adt = lc($opt_i) || "adt";

@@ -705,11 +708,11 @@
           print STDERR "token = $tokenId is undefined\n";
           $tokenId = 'error';
         }
         my ($xlate, $jni) =
           formatTableEntry ('', $tokenId, $eventId, '', 0, 0,
-                            $tokenOrder[$sequence], 'NULL', $omit);
+                            $tokenOrder[$sequence], 'NULL', '', $omit);
         push (@xlateEntryList, $xlate);
       }
       else {
         my $dataType = $extEntry->getAttr('type');
         $dataType =~ s/\s+//g;   # remove blanks (char * => char*)