From patchwork Tue Apr 27 21:12:53 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Andrew Morton X-Patchwork-Id: 95513 Received: from vger.kernel.org (vger.kernel.org [209.132.180.67]) by demeter.kernel.org (8.14.3/8.14.3) with ESMTP id o3RLDNEp017275 for ; Tue, 27 Apr 2010 21:13:40 GMT Received: (majordomo@vger.kernel.org) by vger.kernel.org via listexpand id S1755187Ab0D0VNk (ORCPT ); Tue, 27 Apr 2010 17:13:40 -0400 Received: from smtp1.linux-foundation.org ([140.211.169.13]:60229 "EHLO smtp1.linux-foundation.org" rhost-flags-OK-OK-OK-OK) by vger.kernel.org with ESMTP id S1753834Ab0D0VNk (ORCPT ); Tue, 27 Apr 2010 17:13:40 -0400 Received: from imap1.linux-foundation.org (imap1.linux-foundation.org [140.211.169.55]) by smtp1.linux-foundation.org (8.14.2/8.13.5/Debian-3ubuntu1.1) with ESMTP id o3RLCr68021101 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Tue, 27 Apr 2010 14:12:54 -0700 Received: from localhost.localdomain (localhost [127.0.0.1]) by imap1.linux-foundation.org (8.13.5.20060308/8.13.5/Debian-3ubuntu1.1) with ESMTP id o3RLCrlB020200; Tue, 27 Apr 2010 14:12:53 -0700 Message-Id: <201004272112.o3RLCrlB020200@imap1.linux-foundation.org> Subject: [patch 1/1] markup_oops: fix perlcritic warnings To: mmarek@suse.cz Cc: linux-kbuild@vger.kernel.org, akpm@linux-foundation.org, shemminger@vyatta.com, amwang@redhat.com, arjan@infradead.org From: akpm@linux-foundation.org Date: Tue, 27 Apr 2010 14:12:53 -0700 MIME-Version: 1.0 X-Spam-Status: No, hits=-3.504 required=5 tests=AWL, BAYES_00, OSDL_HEADER_SUBJECT_BRACKETED X-Spam-Checker-Version: SpamAssassin 3.2.4-osdl_revision__1.47__ X-MIMEDefang-Filter: lf$Revision: 1.188 $ X-Scanned-By: MIMEDefang 2.63 on 140.211.169.13 Sender: linux-kbuild-owner@vger.kernel.org Precedence: bulk List-ID: X-Mailing-List: linux-kbuild@vger.kernel.org X-Greylist: IP, sender and recipient auto-whitelisted, not delayed by milter-greylist-4.2.3 (demeter.kernel.org [140.211.167.41]); Tue, 27 Apr 2010 21:13:41 +0000 (UTC) diff -puN scripts/markup_oops.pl~markup_oops-fix-perlcritic-warnings scripts/markup_oops.pl --- a/scripts/markup_oops.pl~markup_oops-fix-perlcritic-warnings +++ a/scripts/markup_oops.pl @@ -1,5 +1,7 @@ #!/usr/bin/perl +use strict; + use File::Basename; use Math::BigInt; use Getopt::Long; @@ -126,7 +128,7 @@ sub process_x86_regs $clobber = ""; } - foreach $reg (keys(%regs)) { + foreach my $reg (keys(%regs)) { my $clobberprime = reg_name($clobber); my $lastwordprime = reg_name($lastword); my $val = $regs{$reg}; @@ -263,7 +265,7 @@ while () { } } -close(FILE); +close($file); if ($counter == 0) { print "No matching code found \n";