author | Craig Mohrman <craig.mohrman@oracle.com> |
Mon, 18 Apr 2016 13:01:02 -0700 | |
changeset 5797 | 432ac76de3b0 |
permissions | -rw-r--r-- |
5797
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
1 |
# Regex pattern needs updating for newer versions of perl. |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
2 |
# This fix is from a newer version of this component. |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
3 |
|
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
4 |
|
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
5 |
--- XML-Simple-2.20/t/8_Namespaces.t_orig 2012-06-20 03:00:21.000000000 -0700 |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
6 |
+++ XML-Simple-2.20/t/8_Namespaces.t 2016-04-05 09:07:27.004767331 -0700 |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
7 |
@@ -122,16 +122,16 @@ |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
8 |
}; |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
9 |
|
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
10 |
$xml = XMLout($opt); |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
11 |
-like($xml, qr{ |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
12 |
+like($xml, qr[ |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
13 |
^\s*<opt |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
14 |
(\s+{http://www.w3.org/2000/xmlns/}perl="http://www.perl.com/" |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
15 |
|\s+{http://www.perl.com/}attr="value" |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
16 |
|\s+bare="Beer!"){3} |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
17 |
\s*> |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
18 |
- \s*<{http://www.perl.com/}element\s*>data</{http://www.perl.com/}element\s*> |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
19 |
+ \s*<\{http://www.perl.com/\}element\s*>data</\{http://www.perl.com/\}element\s*> |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
20 |
\s*</opt> |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
21 |
\s*$ |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
22 |
-}sx, 'clarkian names not converted to qnames on output by default'); |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
23 |
+]sx, 'clarkian names not converted to qnames on output by default'); |
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
24 |
|
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
25 |
|
432ac76de3b0
23078956 adjust the remainder of the userland components to use perl 5.22
Craig Mohrman <craig.mohrman@oracle.com>
parents:
diff
changeset
|
26 |
# Confirm nsexpand option works on output |