Commit 88f567f3a3c1901a40150b43fda87adad1b3e807

Authored by Ram Pai
Committed by Sam Ravnborg
1 parent cf9a6adeae

kbuild: fix perl usage in export_report.pl

Fixes some subtle perl coding bug observed
by Jan Engelhardt <jengelh@computergmbh.de>
This patch applies on top of Adrian's fix.

Signed-off-by: Ram Pai <linuxram@us.ibm.com>
Acked-by: Jan Engelhardt <jengelh@computergmbh.de>
Signed-off-by: Sam Ravnborg <sam@ravnborg.org>

Showing 1 changed file with 4 additions and 4 deletions Side-by-side Diff

scripts/export_report.pl
... ... @@ -103,15 +103,15 @@
103 103 my $state=0;
104 104 while ( <MODULE_MODULE> ) {
105 105 chomp;
106   - if ($state eq 0) {
  106 + if ($state == 0) {
107 107 $state = 1 if ($_ =~ /static const struct modversion_info/);
108 108 next;
109 109 }
110   - if ($state eq 1) {
  110 + if ($state == 1) {
111 111 $state = 2 if ($_ =~ /__attribute__\(\(section\("__versions"\)\)\)/);
112 112 next;
113 113 }
114   - if ($state eq 2) {
  114 + if ($state == 2) {
115 115 if ( $_ !~ /0x[0-9a-f]+,/ ) {
116 116 next;
117 117 }
... ... @@ -121,7 +121,7 @@
121 121 push(@{$MODULE{$thismod}} , $sym);
122 122 }
123 123 }
124   - if ($state ne 2) {
  124 + if ($state != 2) {
125 125 print "WARNING:$thismod is not built with CONFIG_MODVERSION enabled\n";
126 126 }
127 127 close(MODULE_MODULE);