From: ajt <>
Date: Sat, 19 Jan 2002 13:38:29 +0000 (-0800)
Subject: [project @ 2002-01-19 05:38:29 by ajt]
X-Git-Tag: release/2.6.0~1073
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3d5fb2c8817b7f2fdacabf154047021df3ed18b4;p=debbugs.git

[project @ 2002-01-19 05:38:29 by ajt]
make the source cc'age work with pseudo packages
make it "foo\@bar" in strings so perl is happy
---

diff --git a/scripts/process.in b/scripts/process.in
index e4ca098a..53a22270 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.44 2002/01/18 07:31:33 ajt Exp $
+# $Id: process.in,v 1.45 2002/01/19 05:38:29 ajt Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -933,7 +933,9 @@ sub checkmaintainers {
     for $p (split(m/[ \t?,()]+/,$s_package)) {
         $p =~ y/A-Z/a-z/;
 	if (defined($pkgsrc{$p})) {
-	    push @addsrcaddrs, "$pkgsrc{$p}@packages.qa.debian.org";
+	    push @addsrcaddrs, "$pkgsrc{$p}\@packages.qa.debian.org";
+	} else {
+	    push @addsrcaddrs, "$p\@packages.qa.debian.org";
 	}
         if (defined($maintainerof{$p})) {
 print DEBUG "maintainer add >$p|$maintainerof{$p}<\n";