Use back-compatible variable for perl version

[exim.git] / test / stdout / 4008

diff --git a/test/stdout/4008 b/test/stdout/4008
index 957fbd8c544b044586006ea623beb7acd6e34b70..afff4e4dfa56b4564388d7db62dc0acbd7b90c31 100644 (file)
--- a/test/stdout/4008
+++ b/test/stdout/4008
@@ -14,12 +14,13 @@
 Listening on port 11333 ... 
 Connection request from [127.0.0.1]
 <CHECK RSPAMC/1.3
 Listening on port 11333 ... 
 Connection request from [127.0.0.1]
 <CHECK RSPAMC/1.3

-<Content-length: 479
+<Content-length: ddd

 <Queue-Id: 10HmaX-0005vi-00
 <From: <CALLER@myhost.test.ex>
 <Recipient-Number: 1
 <Rcpt: <userx@test.ex>
 <Helo: test.ex
 <Queue-Id: 10HmaX-0005vi-00
 <From: <CALLER@myhost.test.ex>
 <Recipient-Number: 1
 <Rcpt: <userx@test.ex>
 <Helo: test.ex

+<User: CALLER

 <
 <From MAILER-DAEMON Tue Mar 02 09:44:33 1999
 <X-Envelope-From: <CALLER@myhost.test.ex>
 <
 <From MAILER-DAEMON Tue Mar 02 09:44:33 1999
 <X-Envelope-From: <CALLER@myhost.test.ex>


@@ -29,9 +30,10 @@ Connection request from [127.0.0.1]
 <      (envelope-from <CALLER@myhost.test.ex>)
 <      id 10HmaX-0005vi-00
 <      for userx@test.ex; Tue, 2 Mar 1999 09:44:33 +0000
 <      (envelope-from <CALLER@myhost.test.ex>)
 <      id 10HmaX-0005vi-00
 <      for userx@test.ex; Tue, 2 Mar 1999 09:44:33 +0000

+<From: MAILER_DAEMON <>

 <Content-type: text/plain
 <Message-Id: <E10HmaX-0005vi-00@myhost.test.ex>
 <Content-type: text/plain
 <Message-Id: <E10HmaX-0005vi-00@myhost.test.ex>

-<From: CALLER_NAME <CALLER@myhost.test.ex>
+<Sender: CALLER_NAME <CALLER@myhost.test.ex>

 <Date: Tue, 2 Mar 1999 09:44:33 +0000
 <
 <test
 <Date: Tue, 2 Mar 1999 09:44:33 +0000
 <
 <test