diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2004-08-17 01:27:00 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-20 08:10:47 +0000 |
| commit | 7c0e976d40017a166598b7de52585069637d2764 (patch) | |
| tree | 92777acc5948604435c3cf575914b6261c6d0988 /t/io | |
| parent | bbf60fe61b01cdf81488be8df998a73605e38931 (diff) | |
| download | perl-7c0e976d40017a166598b7de52585069637d2764.tar.gz | |
[PATCH] encoding and open pragmas
Date: Mon, 16 Aug 2004 22:27:00 +0300
Message-ID: <41210A84.6060506@iki.fi>
Subject: Re: [PATCH] encoding and open pragmas
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 17 Aug 2004 11:22:58 +0300 (EEST)
Message-Id: <200408170822.i7H8MwUU016793@vipunen.hut.fi>
p4raw-id: //depot/perl@23326
Diffstat (limited to 't/io')
| -rw-r--r-- | t/io/layers.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/io/layers.t b/t/io/layers.t index d0e37a3c8d..e2c63a957c 100644 --- a/t/io/layers.t +++ b/t/io/layers.t @@ -34,6 +34,8 @@ my $FASTSTDIO = $Config{d_faststdio} && $Config{usefaststdio} ? 1 : 0; my $NTEST = 43 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 5 : 0); +sub PerlIO::F_UTF8 () { 0x00008000 } # from perliol.h + plan tests => $NTEST; print <<__EOH__; |