Testsuite: Make patchexim work with dirty tag checkouts
[exim.git] / test / patchexim
CommitLineData
e3ad39bd
HSHR
1#! /usr/bin/env perl
2
3use strict;
4use warnings;
151b83f8 5
151b83f8
PH
6###############################################################################
7# This is an auxiliary script that is part of the Exim test suite. It must be #
8# run as root, and is normally called from the main controlling script. Its #
9# job is to make a copy of Exim, suitably patched so that it can run in the #
10# test harness. See further comments in the main script. #
11# #
12# The only argument to this script is the name of the Exim binary that is to #
13# be copied. The script must be run in the correct current directory. #
14###############################################################################
15
e3ad39bd
HSHR
16open(IN, $ARGV[0]) || die "** Failed to open $ARGV[0]: $!\n";
17open(OUT, '>eximdir/exim') || die "** Failed to open eximdir/exim: $!\n";
151b83f8
PH
18
19while(<IN>)
20 {
21 s/>>>running<<</<<<testing>>>/;
28fb7042 22 s/(\d+\.\d+(?:[_.]\d+)?([_-]RC\d+|[_-]dev)?(?:[0-9a-fA-F-]*)(?:[-_]XX)?\0<<eximversion>>)/"x.yz\0" . ("*" x (length($1) - 5))/e;
151b83f8
PH
23 print OUT;
24 }
25
26close(IN);
27close(OUT);
28
e3ad39bd 29chmod 04755, 'eximdir/exim';
151b83f8
PH
30
31# End of patchexim script