GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-29 23:39:24 +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 = ''; my $comma = '';
foreach my $key (sort keys %{ $self->hash->{$primary}->{$secondary} }) { foreach my $key (sort keys %{ $self->hash->{$primary}->{$secondary} }) {
$result .= $comma . "$key => " . $self->hash->{$primary}->{$secondary}->{$key}; $result .= $comma . "$key => " . $self->hash->{$primary}->{$secondary}->{$key};
$comma = ", "; $comma = "; ";
} }
$result .= "none" if($comma eq ''); $result .= "none" if($comma eq '');
return $result; return $result;
@ -283,6 +283,7 @@ sub set {
$self->save(); $self->save();
} }
$primary = 'global' if $primary eq '.*';
return "[$self->{name}] ($primary) $secondary: '$key' " . (defined $value ? "set to '$value'" : "is not set."); 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}; delete $self->hash->{$primary}->{$secondary}->{$key};
$self->save(); $self->save();
$primary = 'global' if $primary eq '.*';
return "[$self->{name}] ($primary) $secondary: '$key' unset."; return "[$self->{name}] ($primary) $secondary: '$key' unset.";
} }

2
PBot/HashObject.pm
View File

@ -221,7 +221,7 @@ sub set {
my $comma = ''; my $comma = '';
foreach my $k (sort keys %{ $self->hash->{$hash_index} }) { foreach my $k (sort keys %{ $self->hash->{$hash_index} }) {
$result .= $comma . "$k => " . $self->hash->{$hash_index}{$k}; $result .= $comma . "$k => " . $self->hash->{$hash_index}{$k};
$comma = ", "; $comma = "; ";
} }
$result .= "none" if($comma eq ''); $result .= "none" if($comma eq '');
return $result; return $result;

2
PBot/VERSION.pm
View File

@ -13,7 +13,7 @@ use warnings;
# These are set automatically by the build/commit script # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 215, BUILD_REVISION => 216,
BUILD_DATE => "2010-06-29", BUILD_DATE => "2010-06-29",
}; };