--- deliantra/server/lib/cf.pm	2006/07/20 07:22:40	1.25
+++ deliantra/server/lib/cf.pm	2006/07/20 22:03:36	1.26
@@ -328,19 +328,6 @@
 *on_player_load = sub {
    my ($ob, $path) = @_;
 
-   if (open my $fh, "<:raw", "$path.cfperl") {
-
-      #d##TODO#remove
-
-      my $data = Storable::thaw do { local $/; <$fh> };
-
-      $data->{version} <= 1
-         or return; # too new
-
-      %$ob = %{$data->{ob}};
-      return;
-   }
-
    for my $o ($ob, $ob->inv) {
       if (my $value = $o->get_ob_key_value ("_perl_data")) {
          $o->set_ob_key_value ("_perl_data");
@@ -355,8 +342,6 @@
 
    $_->set_ob_key_value (_perl_data => unpack "H*", Storable::nfreeze $_)
       for grep %$_, $ob, $ob->inv;
-
-   unlink "$path.cfperl";#d##TODO#remove
 };
 
 #############################################################################