change system file

hc

2024-10-09 244b2c5ca8b14627e4a17755e5922221e121c771

 kernel/scripts/export_report.pl
..
..
@@ -1,7 +1,7 @@
1
1
 #!/usr/bin/env perl
2
+# SPDX-License-Identifier: GPL-2.0-only
2
3
 #
3
4
 # (C) Copyright IBM Corporation 2006.
4
-#	Released under GPL v2.
5
5
 #	Author : Ram Pai (linuxram@us.ibm.com)
6
6
 #
7
7
 # Usage: export_report.pl -k Module.symvers [-o report_file ] -f *.mod.c
..
..
@@ -52,13 +52,12 @@
52
52
 
53
53
 sub collectcfiles {
54
54
     my @file;
55
-    while (<.tmp_versions/*.mod>) {
56
-	open my $fh, '<', $_ or die "cannot open $_: $!\n";
57
-	push (@file,
58
-	      grep s/\.ko/.mod.c/,	# change the suffix
59
-	      grep m/.+\.ko/,		# find the .ko path
60
-	      <$fh>);			# lines in opened file
55
+    open my $fh, '< modules.order' or die "cannot open modules.order: $!\n";
56
+    while (<$fh>) {
57
+	s/\.ko$/.mod.c/;
58
+	push (@file, $_)
61
59
     }
60
+    close($fh);
62
61
     chomp @file;
63
62
     return @file;
64
63
 }
..
..
@@ -95,7 +94,7 @@
95
94
 #
96
95
 while ( <$module_symvers> ) {
97
96
 	chomp;
98
-	my (undef, $symbol, $module, $gpl) = split;
97
+	my (undef, $symbol, $module, $gpl, $namespace) = split('\t');
99
98
 	$SYMBOL { $symbol } =  [ $module , "0" , $symbol, $gpl];
100
99
 }
101
100
 close($module_symvers);