diff options
| author | Sergey Poznyakoff <gray@gnu.org> | 2018-12-17 16:05:53 +0200 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org> | 2018-12-17 16:05:53 +0200 |
| commit | f6f0330163617f644cd2e6b774e0d9d4b0118b9f (patch) | |
| tree | 0b8e239fee48052ae46d1befd2f5c753d63a0724 /lib/App/Glacier/Directory.pm | |
| parent | f0117788b84fc2b941a93de6992658e3706053f3 (diff) | |
| download | glacier-f6f0330163617f644cd2e6b774e0d9d4b0118b9f.tar.gz glacier-f6f0330163617f644cd2e6b774e0d9d4b0118b9f.tar.bz2 | |
Update docs.
Diffstat (limited to 'lib/App/Glacier/Directory.pm')
| -rw-r--r-- | lib/App/Glacier/Directory.pm | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lib/App/Glacier/Directory.pm b/lib/App/Glacier/Directory.pm index 0ab998f..5e3ad46 100644 --- a/lib/App/Glacier/Directory.pm +++ b/lib/App/Glacier/Directory.pm @@ -12,7 +12,6 @@ use constant DB_INFO_KEY => ';00INFO'; sub new { my ($class, $backend, $vault, $glacier, %opts) = @_; - my $ttl = delete $opts{ttl}; (my $vault_name = $vault) =~ s/([^A-Za-z_0-9\.-])/sprintf("%%%02X", ord($1))/gex; map { $opts{$_} =~ s/\$(?:vault|\{vault\})/$vault_name/g } keys %opts; @@ -23,7 +22,6 @@ sub new { if ($self) { $self->{_vault} = $vault; $self->{_glacier} = $glacier; - $self->{_ttl} = $ttl; } return $self; } |