summaryrefslogtreecommitdiff
path: root/scripts/export_report.pl
diff options
context:
space:
mode:
authorRam Pai <linuxram@us.ibm.com>2007-08-25 02:32:22 +0400
committerSam Ravnborg <sam@neptun.(none)>2007-10-12 23:13:50 +0400
commit88f567f3a3c1901a40150b43fda87adad1b3e807 (patch)
treeb35ec81ffeba78f9626dc26a88f1ada543d03239 /scripts/export_report.pl
parentcf9a6adeae706849990e5bdd4f32cb45d667e0c5 (diff)
downloadlinux-88f567f3a3c1901a40150b43fda87adad1b3e807.tar.xz
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>
Diffstat (limited to 'scripts/export_report.pl')
-rw-r--r--scripts/export_report.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/export_report.pl b/scripts/export_report.pl
index 08ceb42c19bb..705b5ba7c152 100644
--- a/scripts/export_report.pl
+++ b/scripts/export_report.pl
@@ -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);