From 18c5b14abc4f77b7ca9f23c15bc1ef7d604c2592 Mon Sep 17 00:00:00 2001
From: David Allsopp <david.allsopp@metastack.com>
Date: Thu, 2 Nov 2023 09:38:46 +0100
Subject: [PATCH] debug

---
 src/core/opamStd.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/core/opamStd.ml b/src/core/opamStd.ml
index ffbf788f9cf..bac96349131 100644
--- a/src/core/opamStd.ml
+++ b/src/core/opamStd.ml
@@ -1086,6 +1086,8 @@ module OpamSys = struct
       | "cmd.exe" -> Some (Accept SH_cmd)
       | "env.exe" -> Some (Accept SH_sh)
       | name ->
+        if not (Filename.check_suffix name ".exe") then
+          Printf.printf "Unexpected: %S\n%!" name;
         Option.map
           (fun shell -> Accept shell)
           (shell_of_string (Filename.chop_suffix name ".exe"))