From cb25f33bf3c79a5842ddb9461e56108e73dfbf40 Mon Sep 17 00:00:00 2001 From: Simon Cozens 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.2