From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 27 Mar 2002 21:18:40 +0000 (+0000)
Subject: UTF-8 locale: there might already be one UTF-8 discipline.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d928c1f3bb4ceace70d5b5210fd3cea15923928f;p=p5sagit%2Fp5-mst-13.2.git

UTF-8 locale: there might already be one UTF-8 discipline.

p4raw-id: //depot/perl@15555
---

diff --git a/lib/open.t b/lib/open.t
index bb5d829..d9d385b 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' );
 }