diff options
author | Stephen Hemminger <shemminger@vyatta.com> | 2010-02-22 15:17:20 -0800 |
---|---|---|
committer | Michal Marek <mmarek@suse.cz> | 2010-03-07 21:39:33 +0100 |
commit | 9c49fd307a6cb2d3255f9441bce5b7cb08dff79e (patch) | |
tree | 7ef6dd837c79095d7f282b439b3cb6a5d5732460 | |
parent | 86d08e569f63a71a2d259507e335beea32b4d2aa (diff) | |
download | linux-9c49fd307a6cb2d3255f9441bce5b7cb08dff79e.tar.bz2 |
profile2linkerlist: fix perl warnings
Turn on strict checking.
Simplify code by using "unless" statement.
Signed-off-by: Stephen Hemminger <shemminger@vyatta.com>
Acked-by: WANG Cong <amwang@redhat.com>
Cc: Michal Marek <mmarek@suse.cz>
Signed-off-by: Andrew Morton <akpm@linux-foundation.org>
Signed-off-by: Michal Marek <mmarek@suse.cz>
-rw-r--r-- | scripts/profile2linkerlist.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/scripts/profile2linkerlist.pl b/scripts/profile2linkerlist.pl index cb4260ebdb91..6943fa7cc95b 100644 --- a/scripts/profile2linkerlist.pl +++ b/scripts/profile2linkerlist.pl @@ -7,15 +7,13 @@ # usage: # readprofile | sort -rn | perl profile2linkerlist.pl > functionlist # +use strict; while (<>) { my $line = $_; $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/; - if ( ($line =~ /unknown/) || ($line =~ /total/)) { - - } else { - print "*(.text.$1)\n"; - } + print "*(.text.$1)\n" + unless ($line =~ /unknown/) || ($line =~ /total/); } |