forked from luck/tmp_suning_uos_patched
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>
This commit is contained in:
parent
cf9a6adeae
commit
88f567f3a3
|
@ -103,15 +103,15 @@ foreach my $thismod (@allcfiles) {
|
|||
my $state=0;
|
||||
while ( <MODULE_MODULE> ) {
|
||||
chomp;
|
||||
if ($state eq 0) {
|
||||
if ($state == 0) {
|
||||
$state = 1 if ($_ =~ /static const struct modversion_info/);
|
||||
next;
|
||||
}
|
||||
if ($state eq 1) {
|
||||
if ($state == 1) {
|
||||
$state = 2 if ($_ =~ /__attribute__\(\(section\("__versions"\)\)\)/);
|
||||
next;
|
||||
}
|
||||
if ($state eq 2) {
|
||||
if ($state == 2) {
|
||||
if ( $_ !~ /0x[0-9a-f]+,/ ) {
|
||||
next;
|
||||
}
|
||||
|
@ -121,7 +121,7 @@ foreach my $thismod (@allcfiles) {
|
|||
push(@{$MODULE{$thismod}} , $sym);
|
||||
}
|
||||
}
|
||||
if ($state ne 2) {
|
||||
if ($state != 2) {
|
||||
print "WARNING:$thismod is not built with CONFIG_MODVERSION enabled\n";
|
||||
}
|
||||
close(MODULE_MODULE);
|
||||
|
|
Loading…
Reference in New Issue
Block a user