-
- if ($warn) {
- while (my ($k, $v) = each %bad) { print "$k: $v\n"; }
- if (scalar(keys %bad) > 1) {
- print "Total warnings: $warn\n";
+ if (!$silent_mode) {
+ if ($warn) {
+ while (my ($k, $v) = each %bad) { print "$k: $v\n"; }
+ if (scalar(keys %bad) > 1) {
+ print "Total warnings: $warn\n";
+ }
+ } else {
+ print "No warnings!\n";