diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2012-05-17 09:55:33 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2012-05-17 09:55:33 +0100 |
| commit | 2ced346cafb7f6dcdf05d31c670c848d2658d225 (patch) | |
| tree | 7f9076f2c9454df66518f7394becf9f4a35fb28a /perllib/FixMyStreet/App/Controller/Photo.pm | |
| parent | 8991f2967b4a82c0e6d2b8dcf836f1397d537533 (diff) | |
| parent | a9cb80973eaacc79d75cd8edb12009fc88569117 (diff) | |
Merge branch 'master' into barnet-newstyle
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Photo.pm')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Photo.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Photo.pm b/perllib/FixMyStreet/App/Controller/Photo.pm index c54bad238..5d5832b08 100644 --- a/perllib/FixMyStreet/App/Controller/Photo.pm +++ b/perllib/FixMyStreet/App/Controller/Photo.pm @@ -114,6 +114,7 @@ sub _shrink { $image->BlobToImage($photo); my $err = $image->Scale(geometry => "$size>"); throw Error::Simple("resize failed: $err") if "$err"; + $image->Strip(); my @blobs = $image->ImageToBlob(); undef $image; return $blobs[0]; @@ -129,6 +130,7 @@ sub _crop { throw Error::Simple("resize failed: $err") if "$err"; $err = $image->Extent( geometry => '90x60', gravity => 'Center' ); throw Error::Simple("resize failed: $err") if "$err"; + $image->Strip(); my @blobs = $image->ImageToBlob(); undef $image; return $blobs[0]; |