diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-02-19 17:11:33 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-02-19 17:18:08 -0700 |
| commit | d3db5cfeb8346f308b4354ee1c8970ab9b526472 (patch) | |
| tree | c1650ce2c7643a0362677374d3e09908cefc6f7e /lib | |
| parent | 730252b299f0cde0043bed7edb5bcf0c3e37fd38 (diff) | |
| download | perl-d3db5cfeb8346f308b4354ee1c8970ab9b526472.tar.gz | |
lib/locale.t: Remove tests that need UTF-8 locale
These tests should not be here because they will only match under a
UTF-8 locale, which happens to be the case on the machine I developed
them on, but not necessarily always true, and so they are failing.
Given the deadline is already past, I'm just removing them for now, and
will re-add them later in another place in the file where we know we
are using a UTF-8 locale.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/locale.t | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lib/locale.t b/lib/locale.t index 4708b58a40..42dde69fdb 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -215,15 +215,6 @@ check_taint_not $2, "\t\$2"; /(.)/; # untaint $&, $`, $', $+, $1. check_taint_not $&, "\t/./ \$&"; -"k" =~ /(\N{KELVIN SIGN})/i; # taints because depends on locale -check_taint $&, "\t/(\\N{KELVIN SIGN})/i \$&"; -check_taint $`, "\t\$`"; -check_taint $', "\t\$'"; -check_taint $+, "\t\$+"; -check_taint $1, "\t\$1"; -ok($1 eq 'k', ("\t" x 4) . "\$1 is 'k'"); -check_taint_not $2, "\t\$2"; - /(.)/; # untaint $&, $`, $', $+, $1. check_taint_not $&, "\t/(.)/ \$&"; |