equal
deleted
inserted
replaced
|
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 |