Fix NewStorage=>self

This commit is contained in:
Isaac Connor
2023-02-16 12:17:38 -05:00
parent 42da035f27
commit d750daebbc

View File

@@ -95,7 +95,7 @@ sub delete_path {
Debug("Delete $path");
if ($$self{Type} and ( $$self{Type} eq 's3fs' )) {
my $url = $$NewStorage{Url};
my $url = $$self{Url};
$url =~ s/^(s3|s3fs):\/\///ig;
$url =~ /^\s*(?<ID>[^:]+):(?<SECRET>[^@]+)@(?<HOST>(https?:\/\/)?[^\/]*)\/(?<BUCKET>[^\/]+)(?<SUBPATH>\/.+)?\s*$/;
my ( $aws_id, $aws_secret, $aws_host, $aws_bucket, $subpath ) = ($+{ID},$+{SECRET}, $+{HOST}, $+{BUCKET}, $+{SUBPATH});