freshlybakedca.ke
Git fork
Merge branch 'op/cvsserver-perl-warning'
Recent versions of Perl started warning against "! A =~ /pattern/"
which does not negate the result of the matching. As it turns out
that the problematic function is not even called, it was removed.
* op/cvsserver-perl-warning:
cvsserver: remove unused escapeRefName function
+3
-24
+3
-24
git-cvsserver.perl
+3
-24
git-cvsserver.perl
···
4986
4986
return $result;
4987
4987
}
4988
4988
4989
-
=head2 escapeRefName
4989
+
=head2 unescapeRefName
4990
4990
4991
-
Apply an escape mechanism to compensate for characters that
4991
+
Undo an escape mechanism to compensate for characters that
4992
4992
git ref names can have that CVS tags can not.
4993
4993
4994
4994
=cut
4995
-
sub escapeRefName
4995
+
sub unescapeRefName
4996
4996
{
4997
4997
my($self,$refName)=@_;
4998
4998
···
5008
5008
# a tag name.
5009
5009
# = "_-xx-" Where "xx" is the hexadecimal representation of the
5010
5010
# desired ASCII character byte. (for anything else)
5011
-
5012
-
if(! $refName=~/^[1-9][0-9]*(\.[1-9][0-9]*)*$/)
5013
-
{
5014
-
$refName=~s/_-/_-u--/g;
5015
-
$refName=~s/\./_-p-/g;
5016
-
$refName=~s%/%_-s-%g;
5017
-
$refName=~s/[^-_a-zA-Z0-9]/sprintf("_-%02x-",$1)/eg;
5018
-
}
5019
-
}
5020
-
5021
-
=head2 unescapeRefName
5022
-
5023
-
Undo an escape mechanism to compensate for characters that
5024
-
git ref names can have that CVS tags can not.
5025
-
5026
-
=cut
5027
-
sub unescapeRefName
5028
-
{
5029
-
my($self,$refName)=@_;
5030
-
5031
-
# see escapeRefName() for description of escape mechanism.
5032
5011
5033
5012
$refName=~s/_-([spu]|[0-9a-f][0-9a-f])-/unescapeRefNameChar($1)/eg;
5034
5013