X-Git-Url: http://ftp.safe.ca/?a=blobdiff_plain;f=scripts%2Fexport_report.pl;h=705b5ba7c1526c65bbcf2d0868f2a2f007a158e9;hb=82c1e49ccb28534b4e8b77d5f0ff553f19912d4d;hp=9ed00d9bb0a75c3544d96be4f0ca5e5352dab57a;hpb=c5e3003381f4e39773a1758a9eb68dff9740a56c;p=safe%2Fjmp%2Flinux-2.6 diff --git a/scripts/export_report.pl b/scripts/export_report.pl index 9ed00d9..705b5ba 100644 --- a/scripts/export_report.pl +++ b/scripts/export_report.pl @@ -103,16 +103,16 @@ foreach my $thismod (@allcfiles) { my $state=0; while ( ) { 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 ( $_ !~ /0x[0-9a-f]{7,8},/ ) { + if ($state == 2) { + if ( $_ !~ /0x[0-9a-f]+,/ ) { next; } my $sym = (split /([,"])/,)[4]; @@ -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);