From 42b3fdc8644c03650f69086ba0e599fa00d92664 Mon Sep 17 00:00:00 2001
From: Gabriel Corona <gabriel.corona@enst-bretagne.fr>
Date: Thu, 1 Jan 2015 12:28:28 +0100
Subject: [PATCH] Make stackcollapse happy when a % is in the function name

---
 dev/hcstackcollapse.pl     | 2 +-
 dev/thcstackcollapse.pl    | 2 +-
 stackcollapse-gdb.pl       | 2 +-
 stackcollapse-jstack.pl    | 2 +-
 stackcollapse-perf.pl      | 2 +-
 stackcollapse-recursive.pl | 2 +-
 stackcollapse.pl           | 2 +-
 7 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/dev/hcstackcollapse.pl b/dev/hcstackcollapse.pl
index 77fc230c..cc249d03 100755
--- a/dev/hcstackcollapse.pl
+++ b/dev/hcstackcollapse.pl
@@ -83,5 +83,5 @@ sub remember_stack {
 }
 
 foreach my $k (sort { $a cmp $b } keys %collapsed) {
-	printf "$k $collapsed{$k}\n";
+	print "$k $collapsed{$k}\n";
 }
diff --git a/dev/thcstackcollapse.pl b/dev/thcstackcollapse.pl
index 10a16933..2aa307ef 100755
--- a/dev/thcstackcollapse.pl
+++ b/dev/thcstackcollapse.pl
@@ -85,5 +85,5 @@ sub remember_stack {
 }
 
 foreach my $k (sort { $a cmp $b } keys %collapsed) {
-	printf "$k $collapsed{$k}\n";
+	print "$k $collapsed{$k}\n";
 }
diff --git a/stackcollapse-gdb.pl b/stackcollapse-gdb.pl
index 4a986c47..56068a7f 100755
--- a/stackcollapse-gdb.pl
+++ b/stackcollapse-gdb.pl
@@ -63,5 +63,5 @@
 }
 
 foreach my $k (sort { $a cmp $b } keys %stacks) {
-  printf "$k $stacks{$k}\n";
+  print "$k $stacks{$k}\n";
 }
diff --git a/stackcollapse-jstack.pl b/stackcollapse-jstack.pl
index bd07a76c..b9977a4d 100755
--- a/stackcollapse-jstack.pl
+++ b/stackcollapse-jstack.pl
@@ -140,5 +140,5 @@ sub remember_stack {
 }
 
 foreach my $k (sort { $a cmp $b } keys %collapsed) {
-	printf "$k $collapsed{$k}\n";
+	print "$k $collapsed{$k}\n";
 }
diff --git a/stackcollapse-perf.pl b/stackcollapse-perf.pl
index 77c56b6a..cd1fabb6 100755
--- a/stackcollapse-perf.pl
+++ b/stackcollapse-perf.pl
@@ -118,5 +118,5 @@ sub remember_stack {
 }
 
 foreach my $k (sort { $a cmp $b } keys %collapsed) {
-	printf "$k $collapsed{$k}\n";
+	print "$k $collapsed{$k}\n";
 }
diff --git a/stackcollapse-recursive.pl b/stackcollapse-recursive.pl
index 70ab8ef6..7aad41d8 100755
--- a/stackcollapse-recursive.pl
+++ b/stackcollapse-recursive.pl
@@ -56,5 +56,5 @@
 }
 
 foreach my $k (sort { $a cmp $b } keys %stacks) {
-  printf "$k $stacks{$k}\n";
+  print "$k $stacks{$k}\n";
 }
diff --git a/stackcollapse.pl b/stackcollapse.pl
index d4534e9c..7a41b543 100755
--- a/stackcollapse.pl
+++ b/stackcollapse.pl
@@ -83,5 +83,5 @@ sub remember_stack {
 }
 
 foreach my $k (sort { $a cmp $b } keys %collapsed) {
-	printf "$k $collapsed{$k}\n";
+	print "$k $collapsed{$k}\n";
 }