From d25c551c2caaf3d80b889c191ae44103e0012f43 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Sat, 11 Oct 2008 22:16:01 +0000
Subject: 25845: fix pattern but with backslashed and metafied charaters

---
 Test/D07multibyte.ztst | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'Test/D07multibyte.ztst')

diff --git a/Test/D07multibyte.ztst b/Test/D07multibyte.ztst
index 64d220d72..1273b6200 100644
--- a/Test/D07multibyte.ztst
+++ b/Test/D07multibyte.ztst
@@ -395,3 +395,14 @@
 >OK
 >OK
 >OK
+
+  mkdir glob
+  mkdir glob/'()Ą' glob/'()Ā'
+  mkdir glob/'()Ą'/foo glob/'()Ā'/bar
+  tmp1=('glob/\(\)Ą/*')
+  print $~tmp1
+  tmp1=('glob/\(\)Ā/*')
+  print $~tmp1
+0:Backslashes and metafied characters in patterns
+>glob/()Ą/foo
+>glob/()Ā/bar
-- 
cgit 1.4.1