Default an empty Storage to doing Deletes

scripts/ZoneMinder/lib/ZoneMinder/Storage.pm

@@ -113,6 +113,15 @@ sub Name {
 	return $_[0]{Name};
 } # end sub Path
 
+sub DoDelete {
+  $self = shift;
+  $$self{DoDelete} = shift if @_;
+  if ( ! defined $$self{DoDelete} ) {
+    $$self{DoDelete} = 1;
+  }
+  return $$self{DoDelete};
+}
+
 sub Server {
   my $self = shift;
   if ( ! $$self{Server} ) {