From 4e996717c85ba17a7ef81e985eebe8403d1a430e Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sun, 5 Aug 2018 22:43:57 -0700
Subject: [PATCH] HashObject: add $dont_save parameter to set()

---
 PBot/HashObject.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/PBot/HashObject.pm b/PBot/HashObject.pm
index 1ba7fff6..c4b79c37 100644
--- a/PBot/HashObject.pm
+++ b/PBot/HashObject.pm
@@ -148,9 +148,7 @@ sub clear {
 }
 
 sub find_hash {
-  my ($self, $keyword, $arguments) = @_;
-
-  my $string = "$keyword" . (defined $arguments ? " $arguments" : "");
+  my ($self, $keyword) = @_;
 
   my $result = eval {
     foreach my $index (keys %{ $self->hash }) {
@@ -196,7 +194,7 @@ sub levenshtein_matches {
 }
 
 sub set {
-  my ($self, $index, $key, $value) = @_;
+  my ($self, $index, $key, $value, $dont_save) = @_;
 
   my $hash_index = $self->find_hash($index);
 
@@ -221,7 +219,7 @@ sub set {
     $value = $self->hash->{$hash_index}{$key};
   } else {
     $self->hash->{$hash_index}{$key} = $value;
-    $self->save();
+    $self->save() unless $dont_save;
   }
 
   return "[$self->{name}] $hash_index: '$key' " . (defined $value ? "set to '$value'" : "is not set.");