Fix regex in scripts/rename.pl again

This commit is contained in:
Manuel Pégourié-Gonnard 2015-04-20 12:27:12 +01:00
parent e6028c93f5
commit 5f29a73d13

View file

@ -43,7 +43,7 @@ close $nfh or die;
my $string = qr/"(?:\\.|[^\\"])*"/; my $string = qr/"(?:\\.|[^\\"])*"/;
my $space = qr/\s+/; my $space = qr/\s+/;
my $idnum = qr/[a-zA-Z0-9_]+/; my $idnum = qr/[a-zA-Z0-9_]+/;
my $symbols = qr/[-!#$%&'()*+,.\/:;<=>?@[\\\]^_`{|}~]+|"/; my $symbols = qr/[-!#\$%&'()*+,.\/:;<=>?@[\\\]^_`{|}~]+|"/;
# if we replace inside strings, we don't consider them a token # if we replace inside strings, we don't consider them a token
my $token = $do_strings ? qr/$space|$idnum|$symbols/ my $token = $do_strings ? qr/$space|$idnum|$symbols/