Skip to content

Commit

Permalink
kbuild: fix perl usage in export_report.pl
Browse files Browse the repository at this point in the history
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>
  • Loading branch information
Ram Pai authored and Sam Ravnborg committed Oct 12, 2007
1 parent cf9a6ad commit 88f567f
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions scripts/export_report.pl
Original file line number Diff line number Diff line change
Expand Up @@ -103,15 +103,15 @@ sub collectcfiles {
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;
}
Expand All @@ -121,7 +121,7 @@ sub collectcfiles {
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);
Expand Down

0 comments on commit 88f567f

Please sign in to comment.