- Add debugging to _getval()
use strict;
use Irssi;
+use Data::Dumper;
sub new {
my $class = shift;
sub _getval {
my $self = shift;
my $key = shift;
+ my $val;
- return $self->{'_CONFIG'}->{'option'}->{$key}->{'content'}
+ $val = $self->{'_CONFIG'}->{'option'}->{$key}->{'content'};
+ $self->debug('Returning %s=%s', $key, $val);
+
+ return $val;
}
sub setval {
$p = $self->{'_CONFIG'}->{'option'}->{$k}->{'content'};
$p =~ s/%/%%/g;
$s .= sprintf(" %s: %s", $k, $p);
- if ($self->{'_CONFIG'}->{'option'}->{$k}->{'content'} == $self->{'_PARAMS'}->{$k}->[0]) {
+ if ($self->{'_CONFIG'}->{'option'}->{$k}->{'content'} eq $self->{'_PARAMS'}->{$k}->[0]) {
$s .= " (default)\n";
} else {
$s .= "\n";