'--error-limit=yes',
);
- unless ($sess->do_suppressions) {
- push @args, '--track-origins=yes' if $sess->version ge '3.4.0';
- push @args, '--xml=yes';
- }
+ push @args, '--track-origins=yes' if $sess->version ge '3.4.0'
+ and not $sess->do_suppressions;
push @args, $self->SUPER::args(@_);