--- deliantra/Deliantra-Client/DC/Texture.pm	2006/06/14 18:59:31	1.6
+++ deliantra/Deliantra-Client/DC/Texture.pm	2006/06/15 15:33:58	1.7
@@ -42,7 +42,7 @@
 sub new_from_image {
    my ($class, $image, %arg) = @_;
 
-   $class->new (image => $image, %arg)
+   $class->new (image => $image, internalformat => undef, %arg)
 }
 
 sub new_from_file {
@@ -109,8 +109,10 @@
       $self->{render_cb}->($self, $self->{w}, $self->{h});
 
    } else {
-      ($self->{w}, $self->{h}, $data, $self->{internalformat}, $self->{format}, $self->{type})
+      ($self->{w}, $self->{h}, $data, my $internalformat, $self->{format}, $self->{type})
          = CFClient::load_image_inline $self->{image};
+
+      $self->{internalformat} ||= $internalformat;
    }
 
    my ($tw, $th) = @$self{qw(w h)};