pass the command name to the subclass

This commit is contained in:
espie
2023-05-14 09:15:01 +00:00
parent d21d942751
commit 3cfbb9937f
+2 -2
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl
# $OpenBSD: pkg_check-problems,v 1.12 2020/07/04 18:29:21 espie Exp $
# $OpenBSD: pkg_check-problems,v 1.13 2023/05/14 09:15:01 espie Exp $
# Copyright (c) 2004, 2010 Marc Espie <espie@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
@@ -224,7 +224,7 @@ sub handle_options
sub new
{
my ($class) = @_;
my $o = $class->SUPER::new;
my $o = $class->SUPER::new('pkg_check-problem');
if ($o->ui->opt('D') && $o->ui->opt('C')) {
$o->ui->usage("Won't compute anything");