Fixes some subtle perl coding bug observed by Jan Engelhardt <jengelh@computergmbh.de> This patch applies on top of Adrian's fix.
Showing the changes to scripts (1 of 1 file). Show all
Unified · Split
| @@ -103,15 +103,15 @@ foreach my $thismod (@allcfiles) { · 102 unmodified lines | |||
| 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) { · 3 unmodified lines | |||
| 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); |