media-bench: Store the trace file for later

Makes sense to keep it around if a different type of analysis
needs to be done later.

Signed-off-by: Tvrtko Ursulin <tvrtko.ursulin@intel.com>

1 files changed, 10 insertions, 4 deletions

diff --git a/scripts/media-bench.pl b/scripts/media-bench.pl
index 78f44522..ea0e0ed8 100755
--- a/scripts/media-bench.pl
+++ b/scripts/media-bench.pl
@@ -156,7 +156,7 @@ sub trace_workload
 	my $min_batches = 16 + $r * $c / 2;
 	my @skip_engine;
 	my %engines;
-	my $cmd;
+	my ($cmd, $file);
 
 	unshift @args, $b unless $b eq '<none>';
 	unshift @args, '-q';
@@ -180,11 +180,17 @@ sub trace_workload
 	}
 	close CMD;
 
-	$cmd = "perf script | $tracepl --html -x ctxsave -s --squash-ctx-id ";
-	$cmd .= join ' ', map("-i $_", @skip_engine);
 	$wrk =~ s/ /_/g;
 	$b =~ s/[ <>]/_/g;
-	$cmd .= " > ${wrk}_${b}_-r${r}_-c${c}.html";
+	$file = "${wrk}_${b}_-r${r}_-c${c}";
+
+	$cmd = "perf script > ${file}.trace";
+	show_cmd($cmd);
+	system($cmd);
+
+	$cmd = "perf script | $tracepl --html -x ctxsave -s --squash-ctx-id ";
+	$cmd .= join ' ', map("-i $_", @skip_engine);
+	$cmd .= " > ${file}.html";
 	show_cmd($cmd);
 	system($cmd);