diff options
-rwxr-xr-x | scripts/export_report.pl | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/scripts/export_report.pl b/scripts/export_report.pl index 0f604f62f067..7d3030d03a25 100755 --- a/scripts/export_report.pl +++ b/scripts/export_report.pl | |||
@@ -52,13 +52,12 @@ sub usage { | |||
52 | 52 | ||
53 | sub collectcfiles { | 53 | sub collectcfiles { |
54 | my @file; | 54 | my @file; |
55 | while (<.tmp_versions/*.mod>) { | 55 | open my $fh, '< modules.order' or die "cannot open modules.order: $!\n"; |
56 | open my $fh, '<', $_ or die "cannot open $_: $!\n"; | 56 | while (<$fh>) { |
57 | push (@file, | 57 | s/\.ko$/.mod.c/; |
58 | grep s/\.ko/.mod.c/, # change the suffix | 58 | push (@file, $_) |
59 | grep m/.+\.ko/, # find the .ko path | ||
60 | <$fh>); # lines in opened file | ||
61 | } | 59 | } |
60 | close($fh); | ||
62 | chomp @file; | 61 | chomp @file; |
63 | return @file; | 62 | return @file; |
64 | } | 63 | } |