From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 10 Feb 2008 23:53:21 +0000 (-0800)
Subject:  * Fix undefined value in length problems in process.in
X-Git-Tag: release/2.6.0~509^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a7c46170d0db2c119d2c287f531fed0b2e68b71b;p=debbugs.git

 * Fix undefined value in length problems in process.in
---

diff --git a/scripts/process.in b/scripts/process.in
index b5aa130..7828244 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -388,7 +388,7 @@ if ($codeletter eq 'D' || $codeletter eq 'F')
               "X-$gProject-PR-Package"  => $data->{package},
               "X-$gProject-PR-Keywords" => $data->{keywords},
 	      # Only have a X-$gProject-PR-Source when we know the source package
-	      length($source_package)?("X-$gProject-PR-Source" => $source_package):(),
+	      (defined($source_package) and length($source_package))?("X-$gProject-PR-Source" => $source_package):(),
              ],message_body_template('mail/process_mark_as_forwarded',
 				     {date => $header{date},
 				      messageid => $header{'message-id'},
@@ -411,7 +411,7 @@ if ($codeletter eq 'D' || $codeletter eq 'F')
               "X-$gProject-PR-Package"  => $data->{package},
               "X-$gProject-PR-Keywords" => $data->{keywords},
 	      # Only have a X-$gProject-PR-Source when we know the source package
-	      length($source_package)?("X-$gProject-PR-Source" => $source_package):(),
+	      (defined($source_package) and length($source_package))?("X-$gProject-PR-Source" => $source_package):(),
              ],message_body_template('mail/process_mark_as_done',
 				     {date => $header{date},
 				      messageid => $header{'message-id'},
@@ -434,7 +434,7 @@ if ($codeletter eq 'D' || $codeletter eq 'F')
               "X-$gProject-PR-Package"  => "$data->{package}",
               "X-$gProject-PR-Keywords" => "$data->{keywords}",
 	      # Only have a X-$gProject-PR-Source when we know the source package
-	      length($source_package)?("X-$gProject-PR-Source" => $source_package):(),
+	      (defined($source_package) and length($source_package))?("X-$gProject-PR-Source" => $source_package):(),
               "Reply-To"                => "$ref\@$gEmailDomain",
               "Content-Type"            => 'text/plain; charset="utf-8"',
              ],message_body_template('mail/process_mark_as_done',
@@ -808,7 +808,7 @@ if (not exists $header{'x-debbugs-no-ack'} and
 			"X-$gProject-PR-Package"  => $data->{package},
 			"X-$gProject-PR-Keywords" => $data->{keywords},
 			# Only have a X-$gProject-PR-Source when we know the source package
-			length($source_package)?("X-$gProject-PR-Source" => $source_package):(),
+			(defined($source_package) and length($source_package))?("X-$gProject-PR-Source" => $source_package):(),
 			"Reply-To"                => $t_h{reply_to} || "$ref\@$gEmailDomain",
 		       ],$body,[]), '',undef,1);
 }