---
I noticed that calling slurp on a Catalyst::Request::Upload object twice
returns an empty string the second time.
I tried to modify t/aggregate/live_engine_request_uploads.t to add a
failing test, but if I call slurp() there, I get an error about the
temporary file missing.
So this crude change below, just calling slurp() twice, makes existing
tests fail, instead.
t/lib/TestApp/Controller/Engine/Request/Uploads.pm | 1 +
1 files changed, 1 insertions(+), 0 deletions(-)
diff --git a/t/lib/TestApp/Controller/Engine/Request/Uploads.pm
b/t/lib/TestApp/Controller/Engine/Request/Uploads.pm
index f51df9d..7ebcd65 100644
--- a/t/lib/TestApp/Controller/Engine/Request/Uploads.pm
+++ b/t/lib/TestApp/Controller/Engine/Request/Uploads.pm
@@ -6,6 +6,7 @@ use base 'Catalyst::Controller';
sub slurp : Relative {
my ( $self, $c ) = @_;
$c->response->content_type('text/plain; charset=utf-8');
+ $c->request->upload('slurp')->slurp;
$c->response->output( $c->request->upload('slurp')->slurp );
}
--
1.7.2.3
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
