diff options
author | Ram Pai <linuxram@us.ibm.com> | 2007-08-24 18:32:22 -0400 |
---|---|---|
committer | Sam Ravnborg <sam@neptun.(none)> | 2007-10-12 15:13:50 -0400 |
commit | 88f567f3a3c1901a40150b43fda87adad1b3e807 (patch) | |
tree | b35ec81ffeba78f9626dc26a88f1ada543d03239 /scripts | |
parent | cf9a6adeae706849990e5bdd4f32cb45d667e0c5 (diff) |
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')
-rw-r--r-- | scripts/export_report.pl | 8 |
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) { | |||
103 | my $state=0; | 103 | my $state=0; |
104 | while ( <MODULE_MODULE> ) { | 104 | while ( <MODULE_MODULE> ) { |
105 | chomp; | 105 | chomp; |
106 | if ($state eq 0) { | 106 | if ($state == 0) { |
107 | $state = 1 if ($_ =~ /static const struct modversion_info/); | 107 | $state = 1 if ($_ =~ /static const struct modversion_info/); |
108 | next; | 108 | next; |
109 | } | 109 | } |
110 | if ($state eq 1) { | 110 | if ($state == 1) { |
111 | $state = 2 if ($_ =~ /__attribute__\(\(section\("__versions"\)\)\)/); | 111 | $state = 2 if ($_ =~ /__attribute__\(\(section\("__versions"\)\)\)/); |
112 | next; | 112 | next; |
113 | } | 113 | } |
114 | if ($state eq 2) { | 114 | if ($state == 2) { |
115 | if ( $_ !~ /0x[0-9a-f]+,/ ) { | 115 | if ( $_ !~ /0x[0-9a-f]+,/ ) { |
116 | next; | 116 | next; |
117 | } | 117 | } |
@@ -121,7 +121,7 @@ foreach my $thismod (@allcfiles) { | |||
121 | push(@{$MODULE{$thismod}} , $sym); | 121 | push(@{$MODULE{$thismod}} , $sym); |
122 | } | 122 | } |
123 | } | 123 | } |
124 | if ($state ne 2) { | 124 | if ($state != 2) { |
125 | print "WARNING:$thismod is not built with CONFIG_MODVERSION enabled\n"; | 125 | print "WARNING:$thismod is not built with CONFIG_MODVERSION enabled\n"; |
126 | } | 126 | } |
127 | close(MODULE_MODULE); | 127 | close(MODULE_MODULE); |