diff --git a/PBot/DualIndexHashObject.pm b/PBot/DualIndexHashObject.pm index 7c1781a0..08e4a50c 100644 --- a/PBot/DualIndexHashObject.pm +++ b/PBot/DualIndexHashObject.pm @@ -270,7 +270,7 @@ sub set { my $comma = ''; foreach my $key (sort keys %{ $self->hash->{$primary}->{$secondary} }) { $result .= $comma . "$key => " . $self->hash->{$primary}->{$secondary}->{$key}; - $comma = ", "; + $comma = "; "; } $result .= "none" if($comma eq ''); return $result; @@ -283,6 +283,7 @@ sub set { $self->save(); } + $primary = 'global' if $primary eq '.*'; return "[$self->{name}] ($primary) $secondary: '$key' " . (defined $value ? "set to '$value'" : "is not set."); } @@ -308,6 +309,7 @@ sub unset { delete $self->hash->{$primary}->{$secondary}->{$key}; $self->save(); + $primary = 'global' if $primary eq '.*'; return "[$self->{name}] ($primary) $secondary: '$key' unset."; } diff --git a/PBot/HashObject.pm b/PBot/HashObject.pm index 16e09bd8..f8ee0497 100644 --- a/PBot/HashObject.pm +++ b/PBot/HashObject.pm @@ -221,7 +221,7 @@ sub set { my $comma = ''; foreach my $k (sort keys %{ $self->hash->{$hash_index} }) { $result .= $comma . "$k => " . $self->hash->{$hash_index}{$k}; - $comma = ", "; + $comma = "; "; } $result .= "none" if($comma eq ''); return $result; diff --git a/PBot/VERSION.pm b/PBot/VERSION.pm index 01285275..029e5ee9 100644 --- a/PBot/VERSION.pm +++ b/PBot/VERSION.pm @@ -13,7 +13,7 @@ use warnings; # These are set automatically by the build/commit script use constant { BUILD_NAME => "PBot", - BUILD_REVISION => 215, + BUILD_REVISION => 216, BUILD_DATE => "2010-06-29", };