use Text::Unaccent::PurePerl because other one segfaults

[MojoFacets.git] / lib / MojoFacets.pm

diff --git a/lib/MojoFacets.pm b/lib/MojoFacets.pm
index c2ef3d4..cf52bec 100644 (file)
--- a/lib/MojoFacets.pm
+++ b/lib/MojoFacets.pm
@@ -30,10 +30,10 @@ sub save_action {
                        $path =~ s{/}{.}g;
                        $actions_path .= sprintf '%.4f%s', $time, $path;
 
-                       my $array = $params->params;
-                       if ( @$array ) {
-                               store $array, $actions_path;
-                               warn "SAVE $actions_path ", -s $actions_path, " bytes params = ", dump($array), $/;
+                       my $hash = $params->to_hash;
+                       if ( $hash ) {
+                               store $hash, $actions_path;
+                               warn "SAVE $actions_path ", -s $actions_path, " bytes params = ", dump($hash), $/;
                        }
                }
        }