- my %options = %{ $this->{options} };
- foreach my $key (sort keys %options) {
- my $value = $options{$key};
- $this->conn()->log("irspy_debug", "$this setting option '$key' -> '$value'");
- $this->conn()->option($key, $value);
+ foreach my $key (sort keys %{ $this->{options} }) {
+ my $value = $this->{options}->{$key};
+ $value = "" if !defined $value;
+ $this->conn()->log("irspy_debug", "$this setting option '$key' -> ",
+ defined $value ? "'$value'" : "undefined");
+ $this->{options}->{$key} = $this->conn()->option($key, $value);
+ #Net::Z3950::ZOOM::connection_option_set($this->conn()->_conn(), $key, $value);