---
lib/Catalyst/Request/Upload.pm | 7 ++++++-
1 files changed, 6 insertions(+), 1 deletions(-)
diff --git a/lib/Catalyst/Request/Upload.pm b/lib/Catalyst/Request/Upload.pm
index aee3625..bf048b1 100644
--- a/lib/Catalyst/Request/Upload.pm
+++ b/lib/Catalyst/Request/Upload.pm
@@ -5,7 +5,7 @@ with 'MooseX::Emulate::Class::Accessor::Fast';
use Catalyst::Exception;
use File::Copy ();
-use IO::File ();
+use IO::File qw(SEEK_SET);
use File::Spec::Unix;
has filename => (is => 'rw');
@@ -142,10 +142,15 @@ sub slurp {
binmode( $handle, $layer );
+ my $prevpos = $handle->getpos;
+
+ $handle->seek(0, SEEK_SET);
while ( $handle->sysread( my $buffer, 8192 ) ) {
$content .= $buffer;
}
+ $handle->setpos($prevpos);
+
return $content;
}
--
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/
