diff --git a/PBot/DualIndexHashObject.pm b/PBot/DualIndexHashObject.pm index 48ed47b8..3407d6e2 100644 --- a/PBot/DualIndexHashObject.pm +++ b/PBot/DualIndexHashObject.pm @@ -231,7 +231,7 @@ sub set { my $comma = ''; foreach my $key (sort keys %{$self->{hash}->{$lc_primary_index}->{$lc_secondary_index}}) { next if $key eq '_name'; - $result .= $comma . "$key => " . $self->{hash}->{$lc_primary_index}->{$lc_secondary_index}->{$key}; + $result .= $comma . "$key: " . $self->{hash}->{$lc_primary_index}->{$lc_secondary_index}->{$key}; $comma = ";\n"; } $result .= "none" if ($comma eq ''); diff --git a/PBot/HashObject.pm b/PBot/HashObject.pm index 7d80d4fa..ec8eaa0a 100644 --- a/PBot/HashObject.pm +++ b/PBot/HashObject.pm @@ -146,7 +146,7 @@ sub set { my $result = "[$self->{name}] " . $self->get_key_name($lc_index) . " keys: "; my $comma = ''; foreach my $k (sort grep { $_ ne '_name' } keys %{$self->{hash}->{$lc_index}}) { - $result .= $comma . "$k => " . $self->{hash}->{$lc_index}->{$k}; + $result .= $comma . "$k: " . $self->{hash}->{$lc_index}->{$k}; $comma = ";\n"; } $result .= "none" if ($comma eq ''); diff --git a/PBot/Users.pm b/PBot/Users.pm index 7c5c273d..8f14224b 100644 --- a/PBot/Users.pm +++ b/PBot/Users.pm @@ -294,7 +294,7 @@ sub cmd_userset { my $result = $self->{users}->set($name, $key, $value); print "result [$result]\n"; - $result =~ s/^password => .*;?$/password => ;/m; + $result =~ s/^password: .*;?$/password: ;/m; if (defined $key and ($key eq 'channels' or $key eq 'hostmasks') and defined $value) { $self->rebuild_user_index; @@ -411,7 +411,7 @@ sub cmd_my { } $result .= $self->{users}->set($name, $key, $value); - $result =~ s/^password => .*;?$/password => ;/m; + $result =~ s/^password: .*;?$/password: ;/m; return $result; }