summaryrefslogtreecommitdiff
path: root/ext/Storable
diff options
context:
space:
mode:
authorRadu Greab <radu@netsoft.ro>2002-06-10 03:40:34 +0300
committerJarkko Hietaniemi <jhi@iki.fi>2002-06-09 21:47:51 +0000
commit6e3dd797c11bfbcd0b6afff17d355b401f2f8429 (patch)
tree561d6707ba20458e3ca14049801819ef191f4729 /ext/Storable
parent72e53bfb76bf1a0270ca4c38940669d58edefe78 (diff)
downloadperl-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.t2
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;