diff options
| author | Andreas König <a.koenig@mind.de> | 2002-01-08 15:12:29 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-08 15:12:38 +0000 |
| commit | 5b71a6a7d9a57910f8176799ca3a0c2e2cc65133 (patch) | |
| tree | 8617684f59c594cccbee983e007ab31c1f58dcf3 /t/op/subst.t | |
| parent | 9cd90f7bf71369f3b9527136c154bd38b3d6b49e (diff) | |
| download | perl-5b71a6a7d9a57910f8176799ca3a0c2e2cc65133.tar.gz | |
Not OK 13843
Message-ID: <m38zb9c7gi.fsf@anima.de>
p4raw-id: //depot/perl@14135
Diffstat (limited to 't/op/subst.t')
| -rwxr-xr-x | t/op/subst.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index e5eb85b778..e48a1b3c78 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -7,7 +7,7 @@ BEGIN { } require './test.pl'; -plan( tests => 87 ); +plan( tests => 88 ); $x = 'foo'; $_ = "x"; @@ -365,3 +365,12 @@ ok( !s/^([a-z]:)/\u$1/ ); $_ = "Charles Bronson"; $snum = s/\B\w//g; ok( $_ eq "C B" && $snum == 12 ); + +{ + use utf8; + my $s = "H\303\266he"; + my $l = my $r = $s; + $l =~ s/[^\w]//g; + $r =~ s/[^\w\.]//g; + is($l, $r, "use utf8"); +} |