GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-26 13:59:47 +01:00
Code Issues Projects Releases Wiki Activity

Replaced ".*" with "global" in set/unset; replaced "," with ";" as comma

Browse Source
This commit is contained in:
Pragmatic Software 2010-06-29 07:31:27 +00:00
parent d7f2583aac
commit 322314d869
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PBot/DualIndexHashObject.pm
View File

@ -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.";
}

2
PBot/HashObject.pm
View File

@ -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;

2
PBot/VERSION.pm
View File

@ -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",
};