Apply fix for ! in owner et al; fixes #681853 Thanks to jwilk for reporting

diff --git a/Debbugs/Control/Service.pm b/Debbugs/Control/Service.pm
index fcd5d70b7805d8ab56feae46fafca63fd0dda386..ad36a7cf0b98853f3a165b30f8317b27de6cd79c 100644 (file)
--- a/Debbugs/Control/Service.pm
+++ b/Debbugs/Control/Service.pm
@@ -189,6 +189,8 @@ sub control_line {
                                     },
                               limit => {type => HASHREF,
                                        },
+                              replyto => {type => SCALAR,
+                                         },
                              },
                     );
     my $line = $param{line};

diff --git a/scripts/process b/scripts/process
index 5b7175f5d032c57c8e7de9e627f7564fa1130581..e5759586a6ed25cb38a87c033661744b67be0407 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -1017,6 +1017,7 @@ if (@control_bits) {
                                 transcript => $transcript,
                                 debug => 0,
                                 ok => \$ok,
+                                replyto => $replyto,
                                );
                if ($terminate_control) {
                    last;

diff --git a/scripts/service b/scripts/service
index 4d20051f332b55437eb6060b7f71b8dcf3166751..4346e36e96206586f82e3e3d9518975610f45a90 100755 (executable)
--- a/scripts/service
+++ b/scripts/service
@@ -473,6 +473,7 @@ END
                         transcript => $transcript,
                         debug => $debug,
                         ok => \$ok,
+                        replyto => $replyto,
                        );
        if ($terminate_control) {
            last;

diff --git a/t/06_mail_handling.t b/t/06_mail_handling.t
index cc37feb35ede4248c3b70f52b59ea86f68dfa2ed..9489af01a3d8407ecc81a141ae6ff26511ab9eb0 100644 (file)
--- a/t/06_mail_handling.t
+++ b/t/06_mail_handling.t
@@ -1,7 +1,7 @@
 # -*- mode: cperl;-*-
 # $Id: 05_mail.t,v 1.1 2005/08/17 21:46:17 don Exp $
 
-use Test::More tests => 123;
+use Test::More tests => 126;
 
 use warnings;
 use strict;
@@ -208,6 +208,11 @@ my @control_commands =
                             status_key => 'owner',
                             status_value => 'foo@bar.com',
                            },
+      owner_replyto      => {command => 'owner',
+                            value   => '!',
+                            status_key => 'owner',
+                            status_value => 'foo@bugs.something',
+                           },
       noowner      => {command => 'noowner',
                       value   => '',
                       status_key => 'owner',