cvsimport: silence regex warning appearing in Perl 5.22.
authorChristian Neukirchen <chneukirchen@gmail.com>
Wed, 24 Jun 2015 14:04:20 +0000 (16:04 +0200)
committerJunio C Hamano <gitster@pobox.com>
Thu, 25 Jun 2015 00:14:27 +0000 (17:14 -0700)
Since Perl 5.22, "A literal '{' should now be escaped in a pattern".
Silence the recently added warning by using \{ instead.

Signed-off-by: Christian Neukirchen <chneukirchen@gmail.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
git-cvsimport.perl
index 73d367cea8f130bc7721803e397df710e7cfff58..8a687772483205c2b440edf5f5f3a1630604eed5 100755 (executable)
@@ -921,7 +921,7 @@ sub commit {
                # (See check_refname_component in refs.c.)
                1 while $xtag =~ s/
                        (?: \.\.        # Tag cannot contain '..'.
-                       |   \@        # Tag cannot contain '@{'.
+                       |   \@\{        # Tag cannot contain '@{'.
                        | ^ -           # Tag cannot begin with '-'.
                        |   \.lock $    # Tag cannot end with '.lock'.
                        | ^ \.          # Tag cannot begin...