(run_treeview_dialog) fix a crash when default view is unknown (#40025)

1 files changed, 5 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 9db39423..b8abb61b 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -584,7 +584,11 @@ sub run_treeview_dialog {
     # to retrieve a path, one must prevent "accelerators completion":
     my $get_path = sub { return join('', map { my $i = $_; $i =~ s/_//g; $i } @_) };
 
-    $factory->get_item('<main>' . $get_path->(N("/_View") . '/' . $modes{$mode->[0]}))->set_active(1);
+    if (my $widget = $factory->get_item('<main>' . $get_path->(N("/_View") . '/' . $modes{$mode->[0]}))) {
+        $widget->set_active(1);
+    } else {
+        warn "Impossible to set $mode->[0] view as default\n";
+    }
 
     %check_boxes = map {
         $_ => $factory->get_widget("<main>" . $get_path->($auto_string));