fix alt folder concat, undefined properties in checkboxes warning
[clawsker.git] / clawsker
index 84821f98d1626c4963fe7357566fe0c4bd71a401..6e17806f02c534a3399ec246d46aea6f726ffec2 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -371,7 +371,9 @@ sub new_check_button_for {
     my $hbox = Gtk2::HBox->new (FALSE, 5);
     my $cb = Gtk2::CheckButton->new ($label);
     $$hash{$key}[GUI] = $cb;
-    $cb->set_active ($HPVALUE{$name} eq '1');
+    if (defined ($HPVALUE{$name})) {
+        $cb->set_active ($HPVALUE{$name} eq '1');
+    }
     $cb->signal_connect (clicked => sub {
             my ($w, $e) = @_;
            &handle_bool_value($w, $e, \$HPVALUE{$name});
@@ -989,6 +991,8 @@ sub parse_command_line() {
                &command_line_fatal ($xl::s{e_notadir})
                    unless -d $ARGV[$arg];
                $CONFIGDIR = $ARGV[$arg];
+               $CONFIGDIR .= "/" 
+                   unless ($CONFIGDIR =~ /.*\/$/);
                $ALTCONFIGDIR = TRUE;
                last;
            };