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 | } |
