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>
my $state=0;
while ( <MODULE_MODULE> ) {
chomp;
my $state=0;
while ( <MODULE_MODULE> ) {
chomp;
$state = 1 if ($_ =~ /static const struct modversion_info/);
next;
}
$state = 1 if ($_ =~ /static const struct modversion_info/);
next;
}
$state = 2 if ($_ =~ /__attribute__\(\(section\("__versions"\)\)\)/);
next;
}
$state = 2 if ($_ =~ /__attribute__\(\(section\("__versions"\)\)\)/);
next;
}
if ( $_ !~ /0x[0-9a-f]+,/ ) {
next;
}
if ( $_ !~ /0x[0-9a-f]+,/ ) {
next;
}
push(@{$MODULE{$thismod}} , $sym);
}
}
push(@{$MODULE{$thismod}} , $sym);
}
}
print "WARNING:$thismod is not built with CONFIG_MODVERSION enabled\n";
}
close(MODULE_MODULE);
print "WARNING:$thismod is not built with CONFIG_MODVERSION enabled\n";
}
close(MODULE_MODULE);