From 8a273a93cb39add76cfe2f828206b5969021a79b Mon Sep 17 00:00:00 2001
From: Jim Cromie <jim.cromie@gmail.com>
Date: Mon, 23 May 2011 12:44:55 -0600
Subject: [PATCH] --- yaml --- r: 251333 b: refs/heads/master c:
 de7b0b4110795be914e6cafdfec4276b2618cc78 h: refs/heads/master i:   251331:
 9f1366eec5eab5bf671d43d978dbb2c0541dd0da v: v3

---
 [refs]                         |  2 +-
 trunk/scripts/export_report.pl | 10 ++++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/[refs] b/[refs]
index 24cd8e7fb95b..6e1733ff72f3 100644
--- a/[refs]
+++ b/[refs]
@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 2ee2d29289951b4cb7578d75f199e4aa4084fe6f
+refs/heads/master: de7b0b4110795be914e6cafdfec4276b2618cc78
diff --git a/trunk/scripts/export_report.pl b/trunk/scripts/export_report.pl
index 04dce7c15f83..f97899c87923 100644
--- a/trunk/scripts/export_report.pl
+++ b/trunk/scripts/export_report.pl
@@ -49,8 +49,14 @@ sub usage {
 }
 
 sub collectcfiles {
-    my @file
-	= `cat .tmp_versions/*.mod | grep '.*\.ko\$' | sed s/\.ko$/.mod.c/`;
+    my @file;
+    while (<.tmp_versions/*.mod>) {
+	open my $fh, '<', $_ or die "cannot open $_: $!\n";
+	push (@file,
+	      grep s/\.ko/.mod.c/,	# change the suffix
+	      grep m/.+\.ko/,		# find the .ko path
+	      <$fh>);			# lines in opened file
+    }
     chomp @file;
     return @file;
 }