X-Git-Url: https://vcs.fsf.org/?p=exim.git;a=blobdiff_plain;f=test%2Fpatchexim;h=3052b5dace1875914e63fd70700d5999f4b67774;hp=8322961a7c6e6aededeccecf8c4bdd6e00ba9952;hb=fb2bba55d3916ab1d515f1a060f19009daf447ed;hpb=1f5497b2a08c38975c9945122a0279bb03f99e28;ds=sidebyside

diff --git a/test/patchexim b/test/patchexim
index 8322961a7..3052b5dac 100755
--- a/test/patchexim
+++ b/test/patchexim
@@ -1,7 +1,5 @@
 #! /usr/bin/perl -w
 
-# $Cambridge: exim/test/patchexim,v 1.2 2007/06/29 09:20:37 ph10 Exp $
-
 ###############################################################################
 # This is an auxiliary script that is part of the Exim test suite. It must be #
 # run as root, and is normally called from the main controlling script. Its   #
@@ -18,7 +16,7 @@ open(OUT, ">eximdir/exim") || die "** Failed to open eximdir/exim: $!\n";
 while(<IN>)
   {
   s/>>>running<<</<<<testing>>>/;
-  s/(\d+\.\d+(?:\.\d+)?(-RC\d+|-dev)?\0<<eximversion>>)/"x.yz\0" . ("*" x (length($1) - 5))/e;
+  s/(\d+\.\d+(?:[_.]\d+)?([_-]RC\d+|[_-]dev)?(?:[0-9a-fA-F-]*)(?:-XX)?\0<<eximversion>>)/"x.yz\0" . ("*" x (length($1) - 5))/e;
   print OUT;
   }