From a7c46170d0db2c119d2c287f531fed0b2e68b71b Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 10 Feb 2008 15:53:21 -0800 Subject: [PATCH] * Fix undefined value in length problems in process.in --- scripts/process.in | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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); } -- 2.39.2