my $good_rev;
local $ENV{PI_EMERGENCY} = $failbox;
local $ENV{HOME} = $home;
- local $ENV{RECIPIENT} = $addr;
+ local $ENV{ORIGINAL_RECIPIENT} = $addr;
my $simple = Email::Simple->new(<<EOF);
From: Me <me\@example.com>
To: You <you\@example.com>
{
local $ENV{PI_EMERGENCY} = $failbox;
local $ENV{HOME} = $home;
- local $ENV{RECIPIENT} = $addr;
+ local $ENV{ORIGINAL_RECIPIENT} = $addr;
local $ENV{PATH} = $main_path;
my $mid = 'spam-train@example.com';
my $simple = Email::Simple->new(<<EOF);
{
local $ENV{PI_EMERGENCY} = $failbox;
local $ENV{HOME} = $home;
- local $ENV{RECIPIENT} = $addr;
+ local $ENV{ORIGINAL_RECIPIENT} = $addr;
local $ENV{PATH} = $main_path;
my $mid = 'ham-train@example.com';
my $simple = Email::Simple->new(<<EOF);
my $faildir= "$home/faildir/";
local $ENV{PI_EMERGENCY} = $faildir;
local $ENV{HOME} = $home;
- local $ENV{RECIPIENT} = $addr;
+ local $ENV{ORIGINAL_RECIPIENT} = $addr;
local $ENV{PATH} = $fail_path;
my $in = <<EOF;
From: Faildir <faildir\@example.com>