diff options
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'; | |||
12 | 12 | ||
13 | sub new { | 13 | sub new { |
14 | my ($class, $backend, $vault, $glacier, %opts) = @_; | 14 | my ($class, $backend, $vault, $glacier, %opts) = @_; |
15 | my $ttl = delete $opts{ttl}; | ||
16 | (my $vault_name = $vault) =~ | 15 | (my $vault_name = $vault) =~ |
17 | s/([^A-Za-z_0-9\.-])/sprintf("%%%02X", ord($1))/gex; | 16 | s/([^A-Za-z_0-9\.-])/sprintf("%%%02X", ord($1))/gex; |
18 | map { $opts{$_} =~ s/\$(?:vault|\{vault\})/$vault_name/g } keys %opts; | 17 | map { $opts{$_} =~ s/\$(?:vault|\{vault\})/$vault_name/g } keys %opts; |
@@ -23,7 +22,6 @@ sub new { | |||
23 | if ($self) { | 22 | if ($self) { |
24 | $self->{_vault} = $vault; | 23 | $self->{_vault} = $vault; |
25 | $self->{_glacier} = $glacier; | 24 | $self->{_glacier} = $glacier; |
26 | $self->{_ttl} = $ttl; | ||
27 | } | 25 | } |
28 | return $self; | 26 | return $self; |
29 | } | 27 | } |