Testsuite: revert some of the modernish Perl constructs
[exim.git] / test / aux-var-src / 0383.F
1 # Exim filter (system filter for test 444)
2
3 if error_message then finish endif
4
5 if foranyaddress $h_to: ($thisaddress matches "^(alice)") then
6   pipe "DIR/aux-fixed/showenv $thisaddress $1"
7   finish
8 endif   
9
10 if $h_to: matches "^(j..)" then
11   pipe "DIR/aux-fixed/showenv $1"
12 endif   
13