stub_name has one single word, in case this ends up in the log.

This commit is contained in:
espie 2013-03-03 00:40:42 +00:00
parent b24b2ad53a
commit c12bc91785

View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: PortInfo.pm,v 1.23 2013/01/21 02:01:08 espie Exp $
# $OpenBSD: PortInfo.pm,v 1.24 2013/03/03 00:40:42 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -302,7 +302,7 @@ sub dump
}
my $string = "ignored already";
my $s2 = "stub name";
my $s2 = "stub_name";
my $stub_info = bless { IGNORE => bless(\$string, "AddIgnore"),
FULLPKGNAME => bless(\$s2, "AddInfoShow")}, __PACKAGE__;
@ -311,6 +311,11 @@ sub stub
return $stub_info;
}
sub is_stub
{
return shift eq $stub_info;
}
use Data::Dumper;
sub quick_dump
{