From 4e592687c1e5ade0ccc59f80f6fa2a8d814f7859 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@rietz>
Date: Sat, 10 Mar 2007 12:23:39 +0000
Subject: [PATCH] Fix some warnings, and don't let (non-tagged) pseudopackages
 worry us for testing.

---
 scanlib.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/scanlib.pm b/scanlib.pm
index 83e4b60..dc4aac6 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -217,8 +217,7 @@ sub scanspooldir() {
 		$disttags{'experimental'} = grep(/^experimental$/, @tags);
 		
 		my $relinfo = "";
-		warn $section{$bug->{'package'}};
-		if ($section{$bug->{'package'}} eq 'pseudo') {
+		if (defined($section{$bug->{'package'}}) && $section{$bug->{'package'}} eq 'pseudo') {
 			# versioning information makes no sense for pseudo packages,
 			# just use the tags
 			for my $dist qw(oldstable stable testing unstable experimental) {
@@ -397,7 +396,7 @@ sub check_worry {
 
 	if ($status =~ m/^\[[^]]*I/ or
 	    $status =~ m/ \[[^]]*X/ or
-            ($status =~ m/ \[[^]]*[OSUE]/ and $status !~ m/ \[[^]]*T/)) {
+            $status !~ m/ \[[^]]*T/) {
 		return 0;
 	}
 	return 1;
-- 
2.39.2