equal
deleted
inserted
replaced
160 or -e "$data/$file.x.gz") |
160 or -e "$data/$file.x.gz") |
161 ) |
161 ) |
162 { |
162 { |
163 mkpath dirname("$data/$file"); |
163 mkpath dirname("$data/$file"); |
164 my $out = File::Temp->new( |
164 my $out = File::Temp->new( |
165 TEMPLATE => ".XXXXXXX", |
165 TEMPLATE => "tmp-XXXXXXX", |
166 DIR => dirname("$data/$file") |
166 DIR => dirname("$data/$file") |
167 ); |
167 ); |
168 |
168 |
169 if ($o{pass}) { |
169 if ($o{pass}) { |
170 open($out, "|openssl @{[CIPHER]} -pass $o{pass} -out $out"); |
170 open($out, "|openssl @{[CIPHER]} -pass $o{pass} -out $out"); |