diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-27 21:18:40 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-27 21:18:40 +0000 |
| commit | d928c1f3bb4ceace70d5b5210fd3cea15923928f (patch) | |
| tree | 5cdd79d32f2a0df5f3de511c7cbe0937b9817bf5 /lib/open.t | |
| parent | b328b5014aab0f2b3da5a87f9e04fca1b7020983 (diff) | |
| download | perl-d928c1f3bb4ceace70d5b5210fd3cea15923928f.tar.gz | |
UTF-8 locale: there might already be one UTF-8 discipline.
p4raw-id: //depot/perl@15555
Diffstat (limited to 'lib/open.t')
| -rw-r--r-- | lib/open.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/open.t b/lib/open.t index bb5d8296a5..d9d385b80d 100644 --- a/lib/open.t +++ b/lib/open.t @@ -47,7 +47,7 @@ SKIP: { # now load a real-looking locale $ENV{LC_ALL} = ' .utf8'; import( 'IN', 'locale' ); - is( ${^OPEN}, ":utf8\0", + like( ${^OPEN}, qr/^(:utf8)?:utf8\0/, 'should set a valid locale layer' ); } |