From: Joe Perches <joe@perches.com>
Date: Wed, 11 Sep 2013 21:24:04 +0000 (-0700)
Subject: checkpatch: fix perl version 5.12 and earlier incompatibility
X-Git-Tag: v3.12-rc1~52^2~108
X-Git-Url: http://pileus.org/git/?a=commitdiff_plain;h=58cb3cf66cc6330910316abb1dc7a7aa78917a27;p=~andy%2Flinux

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>
---

diff --git a/scripts/checkpatch.pl b/scripts/checkpatch.pl
index 55277a8e152..9ba4fc44112 100755
--- a/scripts/checkpatch.pl
+++ b/scripts/checkpatch.pl
@@ -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";