From 88f567f3a3c1901a40150b43fda87adad1b3e807 Mon Sep 17 00:00:00 2001 From: Ram Pai Date: Fri, 24 Aug 2007 15:32:22 -0700 Subject: [PATCH] kbuild: fix perl usage in export_report.pl Fixes some subtle perl coding bug observed by Jan Engelhardt This patch applies on top of Adrian's fix. Signed-off-by: Ram Pai Acked-by: Jan Engelhardt Signed-off-by: Sam Ravnborg --- scripts/export_report.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts/export_report.pl b/scripts/export_report.pl index 08ceb42c19..705b5ba7c1 100644 --- a/scripts/export_report.pl +++ b/scripts/export_report.pl @@ -103,15 +103,15 @@ 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 ($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); -- 2.39.5