--- deliantra/Deliantra-Client/DC/Texture.pm	2006/06/06 02:55:50	1.4
+++ deliantra/Deliantra-Client/DC/Texture.pm	2006/06/14 16:20:23	1.5
@@ -127,18 +127,7 @@
    $self->{minified} ||= [CFClient::average $tw, $th, $data]
       if $self->{minify};
 
-   unless ($GL_NPOT) {
-      # TODO: does not work for zero-sized textures
-      $tw = topot $tw;
-      $th = topot $th;
-
-      if (($tw != $self->{w} || $th != $self->{h}) && defined $data) {
-         my $bpp = (length $data) / ($self->{w} * $self->{h});
-         $data = pack "(a" . ($tw * $bpp) . ")*",
-                    unpack "(a" . ($self->{w} * $bpp) . ")*", $data;
-         $data .= ("\x00" x ($tw * $bpp)) x ($th - $self->{h});
-      }
-   }
+   pad2pot $data, $tw, $th unless $GL_NPOT;
 
    $self->{s} = $self->{w} / $tw;
    $self->{t} = $self->{h} / $th;
@@ -189,8 +178,6 @@
       gl_check "copying to texture %dx%d if=%x",
                $tw, $th, $self->{internalformat};
    }
-
-   glBindTexture GL_TEXTURE_2D, 0; # just to be on the safe side
 }
 
 sub DESTROY {