Remove single-quotes from set/unset output

This commit is contained in:
Pragmatic Software 2020-01-18 21:57:54 -08:00
parent 99c889faf7
commit 3c7950b82e
2 changed files with 4 additions and 4 deletions

View File

@ -236,7 +236,7 @@ sub set {
$self->save unless $dont_save;
}
return "[$name1] $name2: '$key' " . (defined $value ? "set to '$value'" : "is not set.");
return "[$name1] $name2: $key " . (defined $value ? "set to $value" : "is not set.");
}
sub unset {
@ -265,7 +265,7 @@ sub unset {
my $name2 = $self->{hash}->{$lc_primary_index}->{$lc_secondary_index}->{_name};
$name2 = "\"$name2\"" if $name2 =~ / /;
return "$self->{name}: [$name1] $name2: '$key' unset.";
return "$self->{name}: [$name1] $name2: $key unset.";
}
sub add {

View File

@ -157,7 +157,7 @@ sub set {
$self->save unless $dont_save;
}
return "[$self->{name}] $self->{hash}->{$lc_index}->{_name}: '$key' " . (defined $value ? "set to '$value'" : "is not set.");
return "[$self->{name}] $self->{hash}->{$lc_index}->{_name}: $key " . (defined $value ? "set to $value" : "is not set.");
}
sub unset {
@ -173,7 +173,7 @@ sub unset {
delete $self->{hash}->{$lc_index}->{$key};
$self->save;
return "[$self->{name}] $self->{hash}->{$lc_index}->{_name}: '$key' unset.";
return "[$self->{name}] $self->{hash}->{$lc_index}->{_name}: $key unset.";
}
sub exists {