1 # Regex pattern needs updating for newer versions of perl.

     2 # This fix is from a newer version of this component.

     3 

     4 

     5 --- XML-Simple-2.20/t/8_Namespaces.t_orig	2012-06-20 03:00:21.000000000 -0700

     6 +++ XML-Simple-2.20/t/8_Namespaces.t	2016-04-05 09:07:27.004767331 -0700

     7 @@ -122,16 +122,16 @@

     8  };

     9  

    10  $xml = XMLout($opt);

    11 -like($xml, qr{

    12 +like($xml, qr[

    13    ^\s*<opt

    14    (\s+{http://www.w3.org/2000/xmlns/}perl="http://www.perl.com/"

    15    |\s+{http://www.perl.com/}attr="value"

    16    |\s+bare="Beer!"){3}

    17    \s*>

    18 -  \s*<{http://www.perl.com/}element\s*>data</{http://www.perl.com/}element\s*>

    19 +  \s*<\{http://www.perl.com/\}element\s*>data</\{http://www.perl.com/\}element\s*>

    20    \s*</opt>

    21    \s*$

    22 -}sx, 'clarkian names not converted to qnames on output by default');

    23 +]sx, 'clarkian names not converted to qnames on output by default');

    24  

    25  

    26  # Confirm nsexpand option works on output