diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2013-01-29 10:36:35 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2013-01-29 10:36:35 +0000 |
| commit | 57f79d16ea14dbc4ea1b0ec4e99041e0e7f6d6dd (patch) | |
| tree | 4b3b46d4281abd2448904f77e7f67cbc15309d65 | |
| parent | 85fae8594084e62e6b8357c2d31fe0d1e051460e (diff) | |
spew not known in this version of library.
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Admin.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin.pm b/perllib/FixMyStreet/App/Controller/Admin.pm index 1d90f50a8..9f356ac41 100644 --- a/perllib/FixMyStreet/App/Controller/Admin.pm +++ b/perllib/FixMyStreet/App/Controller/Admin.pm @@ -1304,7 +1304,11 @@ sub rotate_photo : Private { } $c->stash->{rotated} = 1; - $file->spew( $photo ); + + my $fh = $file->open('w'); + print $fh $photo; + close $fh; + unlink glob FixMyStreet->path_to( 'web', 'photo', $c->stash->{problem}->id . '.*' ); if ( $fileid ) { |