profile2linkerlist: fix perl warnings

Turn on strict checking. Simplify code by using "unless" statement.

Stephen Hemminger committed 16 years ago

Commit 9c49fd31 parent 86d08e51 file · +3 −5Browse files

Unified · Split

@@ -7,15 +7,13 @@ · 6 unmodified lines
7	7	# usage:
8	8	# readprofile \| sort -rn \| perl profile2linkerlist.pl > functionlist
9	9	#
	10	+use strict;
10	11
11	12	while (<>) {
12	13	my $line = $_;
13	14
14	15	$_ =~ /\W[0-9]+\W([a-zA-Z\_0-9]+)\W*[0-9]+/;
15	16
16		− if ( ($line =~ /unknown/) \|\| ($line =~ /total/)) {
17		−
18		− } else {
19		− print "*(.text.$1)\n";
20		− }
	17	+ print "*(.text.$1)\n"
	18	+ unless ($line =~ /unknown/) \|\| ($line =~ /total/);
21	19	}