From d76557c69f2494ced405080980590f9e05a0ff2d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 20 Nov 2006 10:48:48 +0000 Subject: move some things to new module urpm::bug_report --- urpm.pm | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index fc1eb6d3..7d2332d1 100644 --- a/urpm.pm +++ b/urpm.pm @@ -741,24 +741,6 @@ sub configure { }, ); } - if ($options{bug}) { - #- and a dump of rpmdb itself as synthesis file. - my $db = db_open_or_die($urpm, $options{root}); - my $sig_handler = sub { undef $db; exit 3 }; - local $SIG{INT} = $sig_handler; - local $SIG{QUIT} = $sig_handler; - - open my $rpmdb, "| " . ($ENV{LD_LOADER} || '') . " gzip -9 >'$options{bug}/rpmdb.cz'" - or $urpm->syserror("Can't fork", "gzip"); - $db->traverse(sub { - my ($p) = @_; - #- this is not right but may be enough. - my $files = join '@', grep { exists($urpm->{provides}{$_}) } $p->files; - $p->pack_header; - $p->build_info(fileno $rpmdb, $files); - }); - close $rpmdb; - } } #- add a new medium, sync the config file accordingly. -- cgit v1.2.1