[ViewVC] Diff of: cvs/deliantra/Deliantra/Deliantra.pm

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.62 by root, Tue Mar 28 14:44:52 2006 UTC vs.
Revision 1.63 by root, Fri Mar 31 21:06:47 2006 UTC

 sub MOVE_ALL       (){ 0x1001f } # very special value, more PITA
 sub load_ref($) {
    my ($path) = @_;
-   open my $fh, "<", $path
+   open my $fh, "<:raw:perlio", $path
       or die "$path: $!";
-   binmode $fh;
    local $/;
    thaw <$fh>
 }
 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
       or die "$path: $!";
 }
 sub read_pak($) {
    my ($path) = @_;
    my %pak;
-   open my $fh, "<", $path
+   open my $fh, "<:raw:perlio", $path
       or Carp::croak "$_[0]: $!";
    binmode $fh;
    while (<$fh>) {
       my ($type, $id, $len, $path) = split;
       $path =~ s/.*\///;
    my ($path) = @_;
    my %arc;
    my ($more, $prev);
-   open my $fh, "<", $path
+   open my $fh, "<:raw:perlio:utf8", $path
       or Carp::croak "$path: $!";
    binmode $fh;
    my $parse_block; $parse_block = sub {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines