checkpatch: fix perl version 5.12 and earlier incompatibility

A previous patch ("checkpatch: add --types option to report only
specific message types") uses a perl syntax introduced in perl version
5.14.

Use the backward compatible perl syntax instead.

Signed-off-by: Joe Perches <joe@perches.com>
Reported-by: Julia Lawall <julia.lawall@lip6.fr>
Signed-off-by: Andrew Morton <akpm@linux-foundation.org>
Signed-off-by: Linus Torvalds <torvalds@linux-foundation.org>
Git-commit: 58cb3cf66cc6330910316abb1dc7a7aa78917a27
Git-repo: git://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git
Signed-off-by: Stepan Moskovchenko <stepanm@codeaurora.org>
This commit is contained in:
Joe Perches 2013-09-11 14:24:04 -07:00 committed by Stepan Moskovchenko
parent 056ed09b1b
commit 7088a9b05d
1 changed files with 2 additions and 2 deletions

View File

@ -174,9 +174,9 @@ sub hash_save_array_words {
sub hash_show_words {
my ($hashRef, $prefix) = @_;
if ($quiet == 0 && keys $hashRef) {
if ($quiet == 0 && keys %$hashRef) {
print "NOTE: $prefix message types:";
foreach my $word (sort keys $hashRef) {
foreach my $word (sort keys %$hashRef) {
print " $word";
}
print "\n\n";