From: Simon Cozens Date: Sat, 24 Feb 2007 22:04:00 +0000 (+0000) Subject: It's unlikely we'll get DOS people doing that but reminds me to do the X-Git-Tag: 1.2+svn20070808~28 X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=cb25f33bf3c79a5842ddb9461e56108e73dfbf40;p=memories.git 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 --- 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);