Donate to e Foundation | Murena handsets with /e/OS | Own a part of Murena! Learn more

Commit 88f567f3 authored by Ram Pai's avatar Ram Pai Committed by Sam Ravnborg
Browse files

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: default avatarRam Pai <linuxram@us.ibm.com>
Acked-by: default avatarJan Engelhardt <jengelh@computergmbh.de>
Signed-off-by: default avatarSam Ravnborg <sam@ravnborg.org>
parent cf9a6ade

scripts/export_report.pl

+4 −4
Original line number Diff line number Diff line
@@ -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);