(run_drakbug) factorize code

3 files changed, 8 insertions, 2 deletions

diff --git a/Rpmdrake/edit_urpm_sources.pm b/Rpmdrake/edit_urpm_sources.pm
index d4d31887..a17a4c77 100644
--- a/Rpmdrake/edit_urpm_sources.pm
+++ b/Rpmdrake/edit_urpm_sources.pm
@@ -964,7 +964,7 @@ sub mainwindow() {
      [ N("/_Options") . N("/P_roxy"), N("<control>R"), \&proxy_callback, undef, '<Item>' ],
      if_($0 =~ /edit-urpm-sources/,
          [ N("/_Help"), undef, undef, undef, '<Branch>' ],
-         [ N("/_Help") . N("/_Report Bug"), undef, sub { run_program::raw({ detach => 1 }, 'drakbug', '--report', 'edit-urpm-sources.pl') }, undef, '<Item>' ],
+         [ N("/_Help") . N("/_Report Bug"), undef, sub { run_drakbug('edit-urpm-sources.pl') }, undef, '<Item>' ],
          [ N("/_Help") . N("/_Help"), undef, sub { rpmdrake::open_help('sources') }, undef, '<Item>' ],
          [ N("/_Help") . N("/_About..."), undef, sub {
                my $license = formatAlaTeX(translate($::license));
diff --git a/rpmdrake b/rpmdrake
index 08f07023..e2711c74 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -567,7 +567,7 @@ sub run_treeview_dialog {
             [ N("/_View") . '/' . $modes{$_}, undef, sub { $view_callback->($val) }, 0, $type ];
         } qw(flat by_group by_leaves by_presence by_selection by_size by_source)),
 	[ N("/_Help"), undef, undef, undef, '<Branch>' ],
-     [ N("/_Help") . N("/_Report Bug"), undef, sub { run_program::raw({ detach => 1 }, 'drakbug', '--report', 'rpmdrake') }, undef, '<Item>' ],
+     [ N("/_Help") . N("/_Report Bug"), undef, sub { run_drakbug('rpmdrake') }, undef, '<Item>' ],
 	[ N("/_Help") . N("/_Help"), undef, sub { rpmdrake::open_help('') }, undef, '<Item>' ],
      [ N("/_Help") . N("/_About..."), undef, sub {
          my $license = formatAlaTeX(translate($::license));
diff --git a/rpmdrake.pm b/rpmdrake.pm
index 0c3ac574..aa3e6241 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -75,6 +75,7 @@ our @EXPORT = qw(
     myexit
     readconf
     remove_wait_msg
+    run_drakbug
     show_urpm_progress
     slow_func
     slow_func_statusbar
@@ -944,6 +945,11 @@ sub open_help {
     statusbar_msg(N("The help window has been started, it should appear shortly on your desktop."), 1);
 }
 
+sub run_drakbug {
+    my ($id) = @_;
+    run_program::raw({ detach => 1 }, 'drakbug', '--report', $id);
+}
+
 sub strip_first_underscore { join '', map { s/_//; $_ } @_ }
 
 1;