--- deliantra/Deliantra/Deliantra.pm	2006/02/23 15:10:08	1.32
+++ deliantra/Deliantra/Deliantra.pm	2006/02/23 15:47:50	1.33
@@ -48,7 +48,7 @@
 
 BEGIN {
    if ($^O eq "MSWin32") {
-      eval "use FreezeThaw qw(freeze thaw)";
+      eval "use Data::Dumper";
    } else {
       eval "use Storable qw(freeze thaw)";
    }
@@ -57,13 +57,12 @@
 sub load_ref($) {
    my ($path) = @_;
 
-   die if $^O eq "MSWin32"; #d#
-
    open my $fh, "<", $path
       or die "$path: $!";
    binmode $fh;
    local $/;
-   thaw <$fh>
+
+   $^O eq "MSWin32" ? eval <$fh> : thaw (<$fh>)
 }
 
 sub save_ref($$) {
@@ -72,7 +71,9 @@
    open my $fh, ">", "$path~"
       or die "$path~: $!";
    binmode $fh;
-   print $fh freeze $ref;
+   print $fh $^O eq "MSWin32" 
+             ? Data::Dumper->new ([$ref])->Deepcopy (1)->Purity (1)->Terse (1)->Indent (0)->Dump
+             : freeze ($ref);
    close $fh;
    rename "$path~", $path
       or die "$path: $!";