--- deliantra/Deliantra/Deliantra.pm	2006/03/20 02:15:36	1.52
+++ deliantra/Deliantra/Deliantra.pm	2006/03/22 03:32:09	1.53
@@ -15,7 +15,7 @@
 use Carp ();
 use File::Spec;
 use List::Util qw(min max);
-use Storable;
+use Storable qw(freeze thaw);
 
 our @EXPORT = qw(
    read_pak read_arch *ARCH TILESIZE $TILE *FACE editor_archs arch_extents
@@ -58,7 +58,7 @@
    binmode $fh;
    local $/;
 
-   Storable::thaw <$fh>
+   thaw <$fh>
 }
 
 sub save_ref($$) {
@@ -67,7 +67,7 @@
    open my $fh, ">", "$path~"
       or die "$path~: $!";
    binmode $fh;
-   print $fh Storable::freeze $ref;
+   print $fh freeze $ref;
    close $fh;
    rename "$path~", $path
       or die "$path: $!";