aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Rpmdrake/edit_urpm_sources.pm2
-rwxr-xr-xrpmdrake2
-rw-r--r--rpmdrake.pm6
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;