Index: lib/Brackup/Target/Filesystem.pm
===================================================================
--- lib/Brackup/Target/Filesystem.pm	(revision 337)
+++ lib/Brackup/Target/Filesystem.pm	(working copy)
@@ -234,7 +234,10 @@
     my ($self, $dig) = @_;
     my $path = $self->chunkpath($dig);
     open (my $fh, $path) or die "Error opening $path to load chunk: $!";
-    my $chunk = do { local $/; <$fh>; };
+    my $chunk;
+    while(<$fh>){
+        $chunk .= $_;
+    }
     return \$chunk;
 }
 
Index: lib/Brackup/Target/Amazon.pm
===================================================================
--- lib/Brackup/Target/Amazon.pm	(revision 337)
+++ lib/Brackup/Target/Amazon.pm	(working copy)
@@ -127,7 +127,10 @@
     my ($self, $chunk) = @_;
     my $dig = $chunk->backup_digest;
     my $fh = $chunk->chunkref;
-    my $chunkref = do { local $/; <$fh> };
+    my $chunkref;
+    while(<$fh>){
+        $chunkref .= $_;
+    }
 
     my $try = sub {
         eval {
Index: lib/Brackup/Target/Riak.pm
===================================================================
--- lib/Brackup/Target/Riak.pm	(revision 337)
+++ lib/Brackup/Target/Riak.pm	(working copy)
@@ -166,7 +166,10 @@
     my ($self, $chunk) = @_;
     my $dig = $chunk->backup_digest;
     my $fh = $chunk->chunkref;
-    my $chunkref = do { local $/; <$fh> };
+    my $chunkref;
+    while(<$fh>){
+        $chunkref .= $_;
+    }
 
     return $self->_store(chunk => $dig, $chunkref);
 }
@@ -194,7 +197,10 @@
 
 sub store_backup_meta {
     my ($self, $name, $fh) = @_;
-    my $content = do { local $/; <$fh> };
+    my $content;
+    while(<$fh>){
+        $content .= $_;
+    }
 
     return $self->_store(backup => $name, $content);
 }
Index: lib/Brackup/Target/CloudFiles.pm
===================================================================
--- lib/Brackup/Target/CloudFiles.pm	(revision 337)
+++ lib/Brackup/Target/CloudFiles.pm	(working copy)
@@ -108,7 +108,10 @@
     my $dig = $chunk->backup_digest;
     my $chunkref = $chunk->chunkref;
 
-    my $content = do { local $/; <$chunkref> };
+    my $content;
+    while(<$chunkref>){
+        $content .= $_;
+    }
 
 	$self->{chunkContainer}->object(
         name => $dig,
@@ -136,7 +139,10 @@
 sub store_backup_meta {
     my ($self, $name, $fh) = @_;
 
-    my $content = do { local $/; <$fh> };
+    my $content;
+    while(<$fh>){
+        $content .= $_;
+    }
 
     $self->{backupContainer}->object(name => $name)->put($content);
 
Index: lib/Brackup/Target/GoogleAppEngine.pm
===================================================================
--- lib/Brackup/Target/GoogleAppEngine.pm	(revision 337)
+++ lib/Brackup/Target/GoogleAppEngine.pm	(working copy)
@@ -147,7 +147,10 @@
 
     print "Storing chunk: $dig\n";
 
-    my $content = do { local $/; <$chunkref> };
+    my $content;
+    while(<$chunkref>){
+        $content .= $_;
+    }
 
     my $req = HTTP::Request::Common::POST($upload_url,
                                           Content_Type => 'form-data',
@@ -210,7 +213,10 @@
     my $upload_url = $self->_get_upload_url(1)  # for backup
         or die;
 
-    my $content = do { local $/; <$fh> };
+    my $content;
+    while(<$fh>){
+        $content .= $_;
+    }
 
     my $req = HTTP::Request::Common::POST($upload_url,
                                           Content_Type => 'form-data',