--- deliantra/Deliantra/Deliantra.pm	2006/03/26 11:52:31	1.59
+++ deliantra/Deliantra/Deliantra.pm	2006/03/27 17:23:35	1.60
@@ -630,8 +630,6 @@
          or die "$VARDIR/tilecache.png: $!";
       *FACE = $_[0];
    }, sub {
-      require File::Temp;
-
       my $tile = read_pak "$LIB/crossfire.0";
 
       my %cache;
@@ -639,11 +637,10 @@
       my $idx = 0;
 
       for my $name (sort keys %$tile) {
-         my ($fh, $filename) = File::Temp::tempfile ();
-         print $fh $tile->{$name};
-         close $fh;
-         my $pb = new_from_file Gtk2::Gdk::Pixbuf $filename;
-         unlink $filename;
+         my $pb = new Gtk2::Gdk::PixbufLoader;
+         $pb->write ($tile->{$name});
+         $pb->close;
+         my $pb = $pb->get_pixbuf;
 
          my $tile = $cache{$name} = {
             pb  => $pb,
@@ -671,7 +668,7 @@
          }
       }
 
-      $pb->save ("$VARDIR/tilecache.png", "png");
+      $pb->save ("$VARDIR/tilecache.png", "png", compression => 1);
 
       \%cache
    };