sub optionize { my ($config_setting, $opthash) = @_; my $option_name = $opthash->{option}; if (defined $config_setting && ($config_setting =~ /1|true|yes/i)) { return( "--$option_name", $opthash->{msg_yes} ); } elsif (defined $config_setting && ($config_setting =~ /0|false|no/i)) { return( "--not-$option_name", $opthash->{msg_no} ); } else { return( undef, $opthash->{msg_default} ); } }