diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 04:56:56 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 04:56:56 +0000 |
commit | adac82c7012022865800c6235e0a0d8b8710e279 (patch) | |
tree | d4115ed17a218f6e06aed4c85487d807842bdc85 /t | |
parent | 7399586d384137f7ae66bcc82a83b0df7dd429e5 (diff) | |
download | perl-adac82c7012022865800c6235e0a0d8b8710e279.tar.gz |
fix little utf8 nits in testsuite; add patch from Ilya that cures
a utf8 bug in one of the new RE optimizations
p4raw-id: //depot/perl@3730
Diffstat (limited to 't')
-rw-r--r-- | t/harness | 2 | ||||
-rwxr-xr-x | t/lib/io_udp.t | 1 | ||||
-rw-r--r-- | t/op/re_tests | 1 | ||||
-rwxr-xr-x | t/pragma/locale.t | 1 |
4 files changed, 4 insertions, 1 deletions
@@ -57,7 +57,7 @@ EOT @tests = grep (!$infinite{$_}, @tests); @tests = map { my $new = $_; - if ($datahandle{$_} && !( -f $new.t) ) { + if ($datahandle{$_} && !( -f "$new.t") ) { $new .= '.t'; local(*F, *T); open(F,"<$_") or die "Can't open $_: $!"; diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t index 8547024df3..3d5145ec5e 100755 --- a/t/lib/io_udp.t +++ b/t/lib/io_udp.t @@ -31,6 +31,7 @@ BEGIN { } sub compare_addr { + no utf8; my $a = shift; my $b = shift; if (length($a) != length $b) { diff --git a/t/op/re_tests b/t/op/re_tests index cbcb7251b1..34b6e29414 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -714,3 +714,4 @@ a(?{$a=2;$b=3;($b)=$a})b yabz y $b 2 round\(((?>[^()]+))\) _I(round(xs * sz),1) y $1 xs * sz '((?x:.) )' x y $1- x - '((?-x:.) )'x x y $1- x- +foo.bart foo.bart y - - diff --git a/t/pragma/locale.t b/t/pragma/locale.t index f6b0f2d189..4999617d51 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -11,6 +11,7 @@ BEGIN { } use strict; +no utf8; my $debug = 1; |