[latex3-commits] [latex3/latex3] main: Normalize / in \sys_shell_split_ls:nN on Windows (822c1188c)

[github at latex-project.org]

Repository : https://github.com/latex3/latex3
On branch  : main
Link       : https://github.com/latex3/latex3/commit/822c1188c8554ec9e725616ff703f128fe781efe

>---------------------------------------------------------------

commit 822c1188c8554ec9e725616ff703f128fe781efe
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue Feb 20 07:52:22 2024 +0000

    Normalize / in \sys_shell_split_ls:nN on Windows


>---------------------------------------------------------------

822c1188c8554ec9e725616ff703f128fe781efe
 l3experimental/CHANGELOG.md                | 3 +++
 l3experimental/l3sys-shell/l3sys-shell.dtx | 5 +++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/l3experimental/CHANGELOG.md b/l3experimental/CHANGELOG.md
index 449a9889a..8b3b34b58 100644
--- a/l3experimental/CHANGELOG.md
+++ b/l3experimental/CHANGELOG.md
@@ -7,6 +7,9 @@ this project uses date-based 'snapshot' version identifiers.
 
 ## [Unreleased]
 
+### Fixed
+- Normalize `/` in `\sys_shell_split_ls:nN` on Windows
+
 ## [2024-01-04]
 
 ### Changed
diff --git a/l3experimental/l3sys-shell/l3sys-shell.dtx b/l3experimental/l3sys-shell/l3sys-shell.dtx
index ad1733ab7..5003f7f53 100644
--- a/l3experimental/l3sys-shell/l3sys-shell.dtx
+++ b/l3experimental/l3sys-shell/l3sys-shell.dtx
@@ -375,10 +375,11 @@
   {
     \sys_if_shell_unrestricted:T
       {
-        \exp_not:N \sys_get_shell:nnN
+        \exp_not:N \exp_args:Ne \exp_not:N \sys_get_shell:nnN
           {
             \sys_if_platform_unix:T { ls~-1~ #1 }
-            \sys_if_platform_windows:T { dir~/b~ #1 }
+            \sys_if_platform_windows:T
+              { dir~/b~ \exp_not:N \@@_path_to_win:n {#1} }
           }
           {
             \ExplSyntaxOff