Fix cache-on-upload.

[pr0n] / perl / Sesse / pr0n / Upload.pm

diff --git a/perl/Sesse/pr0n/Upload.pm b/perl/Sesse/pr0n/Upload.pm
index 6f44f7ac12a32b69ec5345f109b0e21a358db045..0fdce3ad9ea553f0c4f93268b3bb6c137d1c064f 100644 (file)
--- a/perl/Sesse/pr0n/Upload.pm
+++ b/perl/Sesse/pr0n/Upload.pm
@@ -97,7 +97,7 @@ sub handler {
                                # Make cache while we're at it.
                                # FIXME: Ideally we'd want to ensure cache of -1x-1 here as well (for NEFs), but that would
                                # preclude mipmapping in its current form.
-                               Sesse::pr0n::Common::ensure_cached($r, $filename, $newid, undef, undef, 320, 256);
+                               Sesse::pr0n::Common::ensure_cached($r, 0, 0, $filename, $newid, undef, undef, 320, 256);
                                
                                # OK, we got this far, commit
                                $dbh->commit;