|
@@ -203,7 +203,7 @@ sub hash_save_array_words {
|
|
sub hash_show_words {
|
|
sub hash_show_words {
|
|
my ($hashRef, $prefix) = @_;
|
|
my ($hashRef, $prefix) = @_;
|
|
|
|
|
|
- if ($quiet == 0 && keys %$hashRef) {
|
|
|
|
|
|
+ if (keys %$hashRef) {
|
|
print "\nNOTE: $prefix message types:";
|
|
print "\nNOTE: $prefix message types:";
|
|
foreach my $word (sort keys %$hashRef) {
|
|
foreach my $word (sort keys %$hashRef) {
|
|
print " $word";
|
|
print " $word";
|
|
@@ -770,6 +770,9 @@ for my $filename (@ARGV) {
|
|
}
|
|
}
|
|
|
|
|
|
if (!$quiet) {
|
|
if (!$quiet) {
|
|
|
|
+ hash_show_words(\%use_type, "Used");
|
|
|
|
+ hash_show_words(\%ignore_type, "Ignored");
|
|
|
|
+
|
|
if ($^V lt 5.10.0) {
|
|
if ($^V lt 5.10.0) {
|
|
print << "EOM"
|
|
print << "EOM"
|
|
|
|
|
|
@@ -5707,9 +5710,6 @@ EOM
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
- hash_show_words(\%use_type, "Used");
|
|
|
|
- hash_show_words(\%ignore_type, "Ignored");
|
|
|
|
-
|
|
|
|
if ($clean == 0 && $fix &&
|
|
if ($clean == 0 && $fix &&
|
|
("@rawlines" ne "@fixed" ||
|
|
("@rawlines" ne "@fixed" ||
|
|
$#fixed_inserted >= 0 || $#fixed_deleted >= 0)) {
|
|
$#fixed_inserted >= 0 || $#fixed_deleted >= 0)) {
|