From 04d8d896dabc0b9314127a704b6f285a9fe54ecc Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 17 Jul 2012 10:16:56 -0700 Subject: [PATCH] Apply fix for ! in owner et al; fixes #681853 Thanks to jwilk for reporting --- Debbugs/Control/Service.pm | 2 ++ scripts/process | 1 + scripts/service | 1 + t/06_mail_handling.t | 7 ++++++- 4 files changed, 10 insertions(+), 1 deletion(-) diff --git a/Debbugs/Control/Service.pm b/Debbugs/Control/Service.pm index fcd5d70..ad36a7c 100644 --- 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 5b7175f..e575958 100755 --- 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 4d20051..4346e36 100755 --- 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 cc37feb..9489af0 100644 --- 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', -- 2.39.2