summaryrefslogtreecommitdiffabout
path: root/lib/App/Glacier/Directory.pm
Side-by-side diff
Diffstat (limited to 'lib/App/Glacier/Directory.pm') (more/less context) (ignore whitespace changes)
-rw-r--r--lib/App/Glacier/Directory.pm2
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;
}

Return to:

Send suggestions and report system problems to the System administrator.