It's unlikely we'll get DOS people doing that but reminds me to do the

[memories.git] / Memories / Photo.pm

diff --git a/Memories/Photo.pm b/Memories/Photo.pm
index 12016efb3cf93d610e7b4ed274b8ea736b55ebae..b7696b14befef481ace2a63fb958dca39e827ef6 100644 (file)
--- 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);