fixing regex to quotemeta the function name

brendangregg · Aug 23, 2021 · 15c0c57 · 15c0c57
1 parent 6b3d9bf
commit 15c0c57
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/stackcollapse-perf.pl b/stackcollapse-perf.pl
@@ -156,7 +156,7 @@ sub inline {
 
 			$nmCache{$mod}=`nm $mod` unless defined $nmCache{$mod};
 
-			if ($nmCache{$mod} =~ /^([0-9a-f]+) . $func$/m) {
+			if ($nmCache{$mod} =~ /^([0-9a-f]+) . \Q$func\E$/m) {
 			   my $base = hex $1;
 				my $newPc = sprintf "0x%x", $base+$addr;
 				my $result = inline($newPc, '', $mod);