| Subject: | Uploads Larger Than 1MiB/Fixed Documentation |
| Date: | Tue, 6 Nov 2012 16:36:05 -0800 |
| To: | bug-Net-Amazon-Glacier [...] rt.cpan.org |
| From: | Ted Reed <treed [...] imvu.com> |
Hi! I have two more patches for you.
We (IMVU) contribute this code specifically under the GPL Version 1 and
Artistic License (Perl) Version 1.
The first patch fixes a bug with uploading files larger than 1MiB, where
the TreeHash would be incorrect (it would be the hash for just the first
1MiB):
--- a/lib/Net/Amazon/Glacier.pm
+++ b/lib/Net/Amazon/Glacier.pm
@@ -142,6 +142,8 @@
$th->eat_file( $content_fh );
close $content_fh;
+ $th->calc_tree;
+
my $res = $self->_send_receive(
POST => "/-/vaults/$vault_name/archives",
[
The second patch fixes documentation from my prior patch where I
copied/pasted and didn't update for the new function:
--- a/lib/Net/Amazon/Glacier.pm
+++ b/lib/Net/Amazon/Glacier.pm
@@ -205,11 +205,9 @@
=head2 initiate_inventory_retrieval( $vault_name, [ $format, $description,
$sns_topic ] )
-Initiates an archive retrieval job. $archive_id is an ID previously
-retrieved from Amazon Glacier. A job description of up to 1,024 printable
-ASCII characters may be supplied. An SNS Topic to send notifications to
-upon job completion may also be supplied.
-
+Initiates an inventory retrieval job. $format is either CSV or JSON
(default).
+A job description of up to 1,024 printable ASCII characters may be
supplied. An
+SNS Topic to send notifications to upon job completion may also be
supplied.
=cut