X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=Memories%2FPhoto.pm;fp=Memories%2FPhoto.pm;h=b7696b14befef481ace2a63fb958dca39e827ef6;hb=cb25f33bf3c79a5842ddb9461e56108e73dfbf40;hp=12016efb3cf93d610e7b4ed274b8ea736b55ebae;hpb=429b1202cdefc39eb1b83d5f9f634f3a959db873;p=memories.git

diff --git a/Memories/Photo.pm b/Memories/Photo.pm
index 12016ef..b7696b1 100644
--- a/Memories/Photo.pm
+++ b/Memories/Photo.pm
@@ -94,7 +94,7 @@ sub upload_file {
     my $mm = File::MMagic->new;
     my $res = $mm->checktype_filename($filename);
     warn "$filename is a $res\n";
-    if ($res =~ m{/x-zip} or $offered_name =~ /t(ar\.)?gz/) {
+    if ($res =~ m{/x-zip} or $offered_name =~ /t(ar\.)?gz/i) {
         return $self->upload_archive($r, $filename);
     } elsif ($res =~ m{image/jpeg}) {
         return $self->upload_jpeg($r, $filename, $offered_name);