diff options
| -rwxr-xr-x | web/index.cgi | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/web/index.cgi b/web/index.cgi index 80c117302..0b55a0136 100755 --- a/web/index.cgi +++ b/web/index.cgi @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: index.cgi,v 1.102 2007-03-27 21:33:36 matthew Exp $ +# $Id: index.cgi,v 1.103 2007-03-27 21:44:27 matthew Exp $ # TODO # Nothing is done about the update checkboxes - not stored anywhere on anything! @@ -221,11 +221,11 @@ sub submit_problem { if ($fh) { try { $image = Image::Magick->new; - my $err = $image->Read(file=>$fh); + my $err = $image->Read(file => \*$fh); # Mustn't be stringified close $fh; - throw Error::Simple('read failed') if "$err"; - $err = $image->Scale(geometry=>"250x250>"); - throw Error::Simple('resize failed') if "$err"; + throw Error::Simple("read failed: $err") if "$err"; + $err = $image->Scale(geometry => "250x250>"); + throw Error::Simple("resize failed: $err") if "$err"; my @blobs = $image->ImageToBlob(); undef $image; $image = $blobs[0]; |