From d750daebbc25f8ff781bfae002389ece12ee2ee1 Mon Sep 17 00:00:00 2001
From: Isaac Connor <isaac@zoneminder.com>
Date: Thu, 16 Feb 2023 12:17:38 -0500
Subject: [PATCH] Fix NewStorage=>self

---
 scripts/ZoneMinder/lib/ZoneMinder/Storage.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/ZoneMinder/lib/ZoneMinder/Storage.pm b/scripts/ZoneMinder/lib/ZoneMinder/Storage.pm
index bb8131f59..3bdb51e0b 100644
--- a/scripts/ZoneMinder/lib/ZoneMinder/Storage.pm
+++ b/scripts/ZoneMinder/lib/ZoneMinder/Storage.pm
@@ -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});