From 823eba54eb4ddd91e6ff24efb36ac561b97b77d6 Mon Sep 17 00:00:00 2001
From: Kevin-Li-2025 <2242139@qq.com>
Date: Wed, 24 Jun 2026 13:57:10 +0100
Subject: [PATCH] Handle uppercase cbr state in perf output

Signed-off-by: Kevin-Li-2025 <2242139@qq.com>
---
 src/perf_decode.ml | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/src/perf_decode.ml b/src/perf_decode.ml
index 51b894673..1f1ca29b6 100644
--- a/src/perf_decode.ml
+++ b/src/perf_decode.ml
@@ -26,7 +26,8 @@ let perf_branches_event_re =
 ;;
 
 let perf_cbr_event_re =
-  Re.Perl.re {|^ *([a-z )(]*)? +cbr: +([0-9]+ +freq: +([0-9]+) MHz)?(.*)$|} |> Re.compile
+  Re.Perl.re {|^ *([a-zA-Z )(]*)? +cbr: +([0-9]+ +freq: +([0-9]+) MHz)?(.*)$|}
+  |> Re.compile
 ;;
 
 let trace_error_re =
@@ -648,6 +649,18 @@ module%test _ = struct
            (data (Power (freq 4500)))))) |}]
   ;;
 
+  let%expect_test "cbr event with uppercase state" =
+    check
+      "377433/377433 1693789.232275122:          1                                         \
+       cbr:   D                      cbr: 36 freq: 3629 MHz (450%)                   0     \
+       6143f240a145 main+0x1c (/root/foo)";
+    [%expect
+      {|
+        ((Ok
+          ((thread ((pid (377433)) (tid (377433)))) (time 19d14h29m49.232275122s)
+           (data (Power (freq 3629)))))) |}]
+  ;;
+
   (* Expected [None] because we ignore these events currently. *)
   let%expect_test "power event psb offs" =
     check