diff options
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/export_report.pl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/scripts/export_report.pl b/scripts/export_report.pl index 04dce7c15f83..f97899c87923 100644 --- a/scripts/export_report.pl +++ b/scripts/export_report.pl | |||
@@ -49,8 +49,14 @@ sub usage { | |||
49 | } | 49 | } |
50 | 50 | ||
51 | sub collectcfiles { | 51 | sub collectcfiles { |
52 | my @file | 52 | my @file; |
53 | = `cat .tmp_versions/*.mod | grep '.*\.ko\$' | sed s/\.ko$/.mod.c/`; | 53 | while (<.tmp_versions/*.mod>) { |
54 | open my $fh, '<', $_ or die "cannot open $_: $!\n"; | ||
55 | push (@file, | ||
56 | grep s/\.ko/.mod.c/, # change the suffix | ||
57 | grep m/.+\.ko/, # find the .ko path | ||
58 | <$fh>); # lines in opened file | ||
59 | } | ||
54 | chomp @file; | 60 | chomp @file; |
55 | return @file; | 61 | return @file; |
56 | } | 62 | } |