From 57f79d16ea14dbc4ea1b0ec4e99041e0e7f6d6dd Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Tue, 29 Jan 2013 10:36:35 +0000
Subject: spew not known in this version of library.

---
 perllib/FixMyStreet/App/Controller/Admin.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perllib/FixMyStreet/App/Controller/Admin.pm')

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 ) {
-- 
cgit v1.2.3