[project @ 2003-05-03 21:10:40 by doogie]

Warn when reassigning to an unknown package.

diff --git a/debian/changelog b/debian/changelog
index 4ce9ef96a20ea6c87c7b6a83a972ecbbddce695f..f1281a6929aea6835b75ad75946d4994c7b4aa0b 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -17,6 +17,7 @@ debbugs (2.4.1) UNRELEASED; urgency=low
     - Convert all code to use global read/write functions, instead of having
       it duplicated everwhere.
     - Trim trailing whitespace from pseudoheader values.  Closes: #153590.
+    - Warn when reassigning to an unknown package.  Closes: #60595.
 
  -- Colin Watson <cjwatson@debian.org>  Mon, 25 Nov 2002 03:50:20 +0000
 

diff --git a/scripts/service.in b/scripts/service.in
index 3ac382c5fa9a5e89a5a266d771b538dba1cdf0a3..7813c3c41baaa82db7b3d7b4615386ccdefcb5f4 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.73 2003/05/03 20:01:20 doogie Exp $
+# $Id: service.in,v 1.74 2003/05/03 21:10:40 doogie Exp $
 # ^ more or less ^
 #
 # Usage: service <code>.nn
@@ -1008,6 +1008,7 @@ sub addmaintainers {
            print "maintainer add >$p|$addmaint<\n" if $debug;
         } else { 
            print "maintainer none >$p<\n" if $debug; 
+           &transcript("Warning: Unknown package '$p'\n");
            &transcript("MR|unknown-package|$p|$ref|\n") if $dl>2;
             $maintccreasons{$gUnknownMaintainerEmail}{$p}{$ref}= 1;
        }