File tree 2 files changed +15
-1
lines changed
2 files changed +15
-1
lines changed Original file line number Diff line number Diff line change 67
67
for (i = 0 ; i < len ;) {
68
68
c = uni ? ((REBUNI * )bp )[i ] : ((REBYTE * )bp )[i ];
69
69
i ++ ;
70
+ #ifdef TO_WINDOWS
70
71
if (c == ':' ) {
71
72
// Handle the vol:dir/file format:
72
73
if (colon || slash ) return 0 ; // no prior : or / allowed
77
78
}
78
79
c = '/' ; // replace : with a /
79
80
}
80
- else if (c == '\\' || c == '/' ) {
81
+ else
82
+ #endif
83
+ if (c == '\\' || c == '/' ) {
81
84
if (slash > 0 ) continue ;
82
85
c = '/' ;
83
86
slash = 1 ;
Original file line number Diff line number Diff line change @@ -61,6 +61,17 @@ secure [%/ allow]
61
61
--assert %/rodan/shareddocs = to-rebol-file "\\rodan\shareddocs"
62
62
--assert %/rodan/shareddocs/ = to-rebol-file "\\rodan\shareddocs\"
63
63
64
+ if find [Linux macOS] system/platform [
65
+ --test-- "issue-2538"
66
+ ;@@ https://github.com/Oldes/Rebol-issues/issues/2538
67
+ cd (mkdir %issue-2538 )
68
+ call/shell/wait "touch a:0:0"
69
+ --assert %a%3A0%3A0 == f: first read %.
70
+ --assert %a%3A0%3A0 == second split-path query /mode f 'name
71
+ delete f
72
+ cd ..
73
+ ]
74
+
64
75
===end-group===
65
76
66
77
===start-group=== "suffix?"
You can’t perform that action at this time.
0 commit comments