From c12bc91785fb63bc287e59c01edbd19d9ef81ee9 Mon Sep 17 00:00:00 2001
From: espie <espie@openbsd.org>
Date: Sun, 3 Mar 2013 00:40:42 +0000
Subject: [PATCH] stub_name has one single word, in case this ends up in the
 log.

---
 infrastructure/lib/DPB/PortInfo.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/infrastructure/lib/DPB/PortInfo.pm b/infrastructure/lib/DPB/PortInfo.pm
index e39cea03775..368f4976749 100644
--- a/infrastructure/lib/DPB/PortInfo.pm
+++ b/infrastructure/lib/DPB/PortInfo.pm
@@ -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
 {