1 files changed, 19 insertions, 0 deletions
diff --git a/test/ccured_olden/bh/normalize.pl b/test/ccured_olden/bh/normalize.pl
new file mode 100755
index 00000000..102d372f
--- /dev/null
+++ b/test/ccured_olden/bh/normalize.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+# strip wallclock times from output so we can compare
+
+while ($line = <STDIN>) {
+  # I don't know if it's a problem, but we seem to get some difference
+  # about whether the 0's are positive or negative.. so let's change
+  # all occurrances of "-0.0000" to simply " 0.0000"
+  $line =~ s/-0\.0000/ 0.0000/g;
+
+  ($firstSix) = ($line =~ /^(\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+)\s+\S+$/);
+  if ($firstSix) {
+    # only output the first 6 columns
+    print ("$firstSix\n");
+  }
+  else {
+    # no match; print whole line
+    print ($line);
+  }
+}