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

*** 51,60 ****
--- 51,63 ----
                 # 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,715 ****
            print STDERR "token = $tokenId is undefined\n";
            $tokenId = 'error';
          }
          my ($xlate, $jni) =
            formatTableEntry ('', $tokenId, $eventId, '', 0, 0,
!                             $tokenOrder[$sequence], 'NULL', $omit);
          push (@xlateEntryList, $xlate);
        }
        else {
          my $dataType = $extEntry->getAttr('type');
          $dataType =~ s/\s+//g;   # remove blanks (char * => char*)
--- 708,718 ----
            print STDERR "token = $tokenId is undefined\n";
            $tokenId = 'error';
          }
          my ($xlate, $jni) =
            formatTableEntry ('', $tokenId, $eventId, '', 0, 0,
!                             $tokenOrder[$sequence], 'NULL', '', $omit);
          push (@xlateEntryList, $xlate);
        }
        else {
          my $dataType = $extEntry->getAttr('type');
          $dataType =~ s/\s+//g;   # remove blanks (char * => char*)