#!./perl
-# $RCSfile: read.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:17 $
-
BEGIN {
chdir 't';
@INC = '../lib';
!$Config::Config{useperlio}
};
-my $tmpfile = 'Op_read.tmp';
-
-END { 1 while unlink $tmpfile }
+my $tmpfile = tempfile();
my (@values, @buffers) = ('', '');
skip "Needs :utf8 layer but no perlio", 2 * @offsets * @lengths
if $utf8 and !$has_perlio;
- 1 while unlink $tmpfile;
open FH, ">$tmpfile" or die "Can't open $tmpfile: $!";
binmode FH, "utf8" if $utf8;
print FH $value;