cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

scrape stupid debug code

Browse Source
This commit is contained in:
espie 2018-09-13 15:53:19 +00:00
parent 1c4a858a43
commit 2c8b572819
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
infrastructure/bin/pkg_check-problems
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl
# $OpenBSD: pkg_check-problems,v 1.8 2018/09/12 15:34:31 espie Exp $
# $OpenBSD: pkg_check-problems,v 1.9 2018/09/13 15:53:19 espie Exp $
# Copyright (c) 2004, 2010 Marc Espie <espie@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
@ -432,8 +432,9 @@ sub compute_conflicts
my $newkey = join(',',
sort map { $self->fullname($_) } @$result);
if (@$result == 1) {
$newkey.="-> was ".join(',', @$l);
$newkey .= "-> was ".join(',', @$l);
}
print STDERR $newkey, " ", $key, "\n";
push(@{$r->{$newkey}}, $key);
}
}
@ -441,6 +442,17 @@ sub compute_conflicts
return $r;
}
sub show_conflicts
{
my ($self, $result) = @_;
for my $cfl (sort keys %$result) {
$self->say("#1", $cfl);
for my $f (sort @{$result->{$cfl}}) {
$self->say("\t#1", $f);
}
}
}
sub check_license
{
my ($self, $pkg, $k) = @_;
@ -473,7 +485,6 @@ sub check_licenses
for my $k (qw(cdrom_okay ftp_okay)) {
while (my ($pkg, $v) = each %{$self->{$k}}) {
next if $v == 0;
print $pkg, "\n";
my $d = $self->check_license($pkg, $k);
if (defined $d) {
$r->{$k}{$pkg} = $d;
@ -495,17 +506,6 @@ sub show_licenses_issues
}
}
sub show_conflicts
{
my ($self, $result) = @_;
for my $cfl (sort keys %$result) {
$self->say("#1", $cfl);
for my $f (sort @{$result->{$cfl}}) {
$self->say("\t#1", $f);
}
}
}
sub display_results
{
my $self = shift;