cvsserver: avoid precedence problem between ! and %s

With perl-5.41.4 and newer, test t9402-git-cvsserver-refs.sh
(specifically t9402.30, t9402.31, t9402.32, t9402.34) fails, because
of the new warnings[0] populating cvs.log.

Use the 'does not match' operator '!~' directly to express the
negated pattern match, resolving the precedence issue.

[0] https://metacpan.org/release/ETHER/perl-5.41.12/view/pod/perl5414delta.pod#New-Warnings

Reported-by: Jitka Plesnikova <[email protected]>
Suggested-by: Jitka Plesnikova <[email protected]>
Signed-off-by: Ondřej Pohořelský <[email protected]>

Author: opohorel

git-cvsserver.perl

@@ -5009,7 +5009,7 @@ sub escapeRefName
     #   = "_-xx-" Where "xx" is the hexadecimal representation of the
     #     desired ASCII character byte. (for anything else)
 
-    if(! $refName=~/^[1-9][0-9]*(\.[1-9][0-9]*)*$/)
+    if ($refName !~ /^[1-9][0-9]*(\.[1-9][0-9]*)*$/)
     {
         $refName=~s/_-/_-u--/g;
         $refName=~s/\./_-p-/g;