Commit 88f567f3a3c1901a40150b43fda87adad1b3e807
Committed by
Sam Ravnborg
1 parent
cf9a6adeae
Exists in
master
and in
4 other branches
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); |