--- deliantra/Deliantra/Deliantra.pm	2006/03/28 14:44:52	1.62
+++ deliantra/Deliantra/Deliantra.pm	2006/03/31 21:06:47	1.63
@@ -132,9 +132,8 @@
 sub load_ref($) {
    my ($path) = @_;
 
-   open my $fh, "<", $path
+   open my $fh, "<:raw:perlio", $path
       or die "$path: $!";
-   binmode $fh;
    local $/;
 
    thaw <$fh>
@@ -143,9 +142,8 @@
 sub save_ref($$) {
    my ($ref, $path) = @_;
 
-   open my $fh, ">", "$path~"
+   open my $fh, ">:raw:perlio", "$path~"
       or die "$path~: $!";
-   binmode $fh;
    print $fh freeze $ref;
    close $fh;
    rename "$path~", $path
@@ -290,7 +288,7 @@
 
    my %pak;
 
-   open my $fh, "<", $path
+   open my $fh, "<:raw:perlio", $path
       or Carp::croak "$_[0]: $!";
    binmode $fh;
    while (<$fh>) {
@@ -308,7 +306,7 @@
    my %arc;
    my ($more, $prev);
 
-   open my $fh, "<", $path
+   open my $fh, "<:raw:perlio:utf8", $path
       or Carp::croak "$path: $!";
 
    binmode $fh;