X-Git-Url: https://git.exim.org/users/heiko/exim.git/blobdiff_plain/151b83f867487080e8f0e5cd6179e857dc6b3ccb..8cd386d03cb8688c08e6feaab5ab6fbaf7a6d25f:/test/patchexim diff --git a/test/patchexim b/test/patchexim index c8fbe466b..2a4077820 100755 --- a/test/patchexim +++ b/test/patchexim @@ -1,6 +1,7 @@ -#! /usr/bin/perl -w +#! /usr/bin/env perl -# $Cambridge: exim/test/patchexim,v 1.1 2006/02/06 16:07:10 ph10 Exp $ +use strict; +use warnings; ############################################################################### # This is an auxiliary script that is part of the Exim test suite. It must be # @@ -12,19 +13,30 @@ # be copied. The script must be run in the correct current directory. # ############################################################################### -open(IN, "$ARGV[0]") || die "** Failed to open $ARGV[0]: $!\n"; -open(OUT, ">eximdir/exim") || die "** Failed to open eximdir/exim: $!\n"; +open(IN, $ARGV[0]) || die "** Failed to open $ARGV[0]: $!\n"; +open(OUT, '>eximdir/exim') || die "** Failed to open eximdir/exim: $!\n"; while() { s/>>>running<<>>/; - s/(\d+\.\d+(?:\.\d+)?(-RC\d+)?\0<>)/"x.yz\0" . ("*" x (length($1) - 5))/e; + s{ + (\d+[_.]\d+ # major.minor + (?:[_.]\d+)? # optional security-patchlevel + (?:[_.]\d+)? # optional patchlevel + (?:[_-]RC\d+|[_-]?dev(?:start)?)? # optional RC or dev(start) + (?:(?:[_-]\d+)? # git tag distance + [-_][[:xdigit:]]+)? # git id + (?:[-_]XX)?\0 # git dirty bit + <> # marker + ) + } + {"x.yz\0" . ("*" x (length($1) - 5))}xe; print OUT; } close(IN); close(OUT); -chmod 04755, "eximdir/exim"; +chmod 04755, 'eximdir/exim'; # End of patchexim script