aboutsummaryrefslogtreecommitdiff
path: root/lib/App/Glacier/Directory.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/App/Glacier/Directory.pm')
-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';
12 12
13sub new { 13sub 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}

Return to:

Send suggestions and report system problems to the System administrator.