From cb25f33bf3c79a5842ddb9461e56108e73dfbf40 Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@simon-cozens.org>
Date: Sat, 24 Feb 2007 22:04:00 +0000
Subject: [PATCH] It's unlikely we'll get DOS people doing that but reminds me
 to do the same for the next checkin...

git-svn-id: http://svn.simon-cozens.org/memories/trunk@40 041978f6-d955-411f-a9d7-1d8545c9c3c7
---
 Memories/Photo.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.39.5