diff options
author | Radu Greab <radu@netsoft.ro> | 2002-06-10 03:40:34 +0300 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-09 21:47:51 +0000 |
commit | 6e3dd797c11bfbcd0b6afff17d355b401f2f8429 (patch) | |
tree | 561d6707ba20458e3ca14049801819ef191f4729 /ext/Storable | |
parent | 72e53bfb76bf1a0270ca4c38940669d58edefe78 (diff) | |
download | perl-6e3dd797c11bfbcd0b6afff17d355b401f2f8429.tar.gz |
[ID 20020609.007] Not OK: perl v5.8.0 +DEVEL17060 on i686-linux 2.4.18-4smp (UNINSTALLED)
Message-Id: <200206092140.g59LeYn15745@ix.netsoft.ro>
Fixes for en_US.UTF-8 failures, all but ext/PerlIO/t/fallback.t
ones which I cannot figure out.
p4raw-id: //depot/perl@17150
Diffstat (limited to 'ext/Storable')
-rw-r--r-- | ext/Storable/t/malice.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Storable/t/malice.t b/ext/Storable/t/malice.t index 405fd3d5e1..31cbbd13de 100644 --- a/ext/Storable/t/malice.t +++ b/ext/Storable/t/malice.t @@ -95,6 +95,7 @@ sub store_and_retrieve { unlink $file or die "Can't unlink '$file': $!"; open FH, ">$file" or die "Can't open '$file': $!"; binmode FH; + eval { binmode(FH, ":bytes") }; # Perl 5.8.0+ only print FH $data or die "Can't print to '$file': $!"; close FH or die "Can't close '$file': $!"; @@ -258,6 +259,7 @@ sub slurp { local (*FH, $/); open FH, "<$file" or die "Can't open '$file': $!"; binmode FH; + eval { binmode(FH, ":bytes") }; # Perl 5.8.0+ only my $contents = <FH>; die "Can't read $file: $!" unless defined $contents; return $contents; |