Make sure Set objects are initialized

titsuki · May 31, 2017 · ac39f2c · ac39f2c
1 parent 6ae2a4e
commit ac39f2c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/lib/Algorithm/AhoCorasick.pm6 b/lib/Algorithm/AhoCorasick.pm6
@@ -45,7 +45,7 @@ method !build-automata() {
 
 method match($text) {
     my $all = self.locate($text);
-    my Set $matched;
+    my Set $matched = set();
     for $all.keys -> $keyword {
         $matched = $matched (|) $keyword;
     }

diff --git a/lib/Algorithm/AhoCorasick/Node.pm6 b/lib/Algorithm/AhoCorasick/Node.pm6
@@ -4,3 +4,7 @@ unit class Algorithm::AhoCorasick::Node;
 has Set $.matched-string is rw;
 has Algorithm::AhoCorasick::Node %.transitions is rw;
 has Algorithm::AhoCorasick::Node $.failure is rw;
+
+submethod TWEAK {
+    $!matched-string = set();
+}