X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=scripts%2Ferrorlib.in;h=d86d8389080956569982fc41c86437460ca929df;hb=bced1252f21af86baa3b91c2b1bf2b3e066a0883;hp=e424d2f6b86e84bc97b8ee338da6ad4b35725e04;hpb=f6e0fd09872a108f974ae50b9f6b212a67278f30;p=debbugs.git

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index e424d2f..d86d838 100755
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.17 2002/11/17 22:45:16 cjwatson Exp $
+# $Id: errorlib.in,v 1.18 2003/02/16 15:20:26 cjwatson Exp $
 
 sub F_SETLK { 6; } sub F_WRLCK{ 1; }
 $flockstruct= 'sslll'; # And there ought to be something for this too.
@@ -218,7 +218,7 @@ sub escapelog {
 }
 
 
-@severities= @gSeverityList;
+@severities= grep { not exists $gObsoleteSeverities{$_} } @gSeverityList;
 @showseverities= @severities;
 grep ($_= $_ eq '' ? $gDefaultSeverity : $_, @showseverities);
 @strongseverities= @gStrongSeverities;