fix test script

build error
"""
[   42s] t/7_SaxStuff.t .... skipped: no XML::SAX
[   42s] Unescaped left brace in regex is illegal here in regex; marked
by <-- HERE in m/
[   42s]   ^\s*<opt
[   42s]
(\s+{http://www.w3.org/2000/xmlns/}perl="http://www.perl.com/"
 [   42s]   |\s+{http://www.perl.com/}attr="value"
 [   42s]   |\s+bare="Beer!"){3}
[   42s]   \s*>
[   42s]   \s*<{ <-- HERE
    http://www.perl.com/}element\s*>data</{http://www.perl.com/}element\s*>
    [   42s]   \s*</opt>
    [   42s]   \s*$
"""

Change-Id: Ic81649966d183594046703608e48fd76e82f4daa
Signed-off-by: DongHun Kwak <dh0128.kwak@samsung.com>

diff --git a/t/8_Namespaces.t b/t/8_Namespaces.t
index b4cef66927ef8428ee3dd7de7dd8f0e69c308172..03f41ac656a7cb4e7bc3560b08f1519050c13d02 100644 (file)
--- a/t/8_Namespaces.t
+++ b/t/8_Namespaces.t
@@ -125,16 +125,16 @@ $opt = {
 };
 
 $xml = XMLout($opt);
-like($xml, qr{
+like($xml, qr[
   ^\s*<opt
   (\s+{http://www.w3.org/2000/xmlns/}perl="http://www.perl.com/"
   |\s+{http://www.perl.com/}attr="value"
   |\s+bare="Beer!"){3}
   \s*>
-  \s*<{http://www.perl.com/}element\s*>data</{http://www.perl.com/}element\s*>
+  \s*<\{http://www.perl.com/\}element\s*>data</\{http://www.perl.com/\}element\s*>
   \s*</opt>
   \s*$
-}sx, 'clarkian names not converted to qnames on output by default');
+]sx, 'clarkian names not converted to qnames on output by default');
 
 
 # Confirm nsexpand option works on output