* Fix undefined value in length problems in process.in

diff --git a/scripts/process.in b/scripts/process.in
index b5aa13007a7f98254d42831c1b9bcd5bba113478..7828244e6c272dd15852aa19a24268ca73cb8461 100755 (executable)
--- 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);
 }