From 5f29a73d13d5d888dbba80f498d570ecad0bc29c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Manuel=20P=C3=A9gouri=C3=A9-Gonnard?= <mpg@elzevir.fr>
Date: Mon, 20 Apr 2015 12:27:12 +0100
Subject: [PATCH] Fix regex in scripts/rename.pl again

---
 scripts/rename.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/rename.pl b/scripts/rename.pl
index 3377297748..c169078e35 100755
--- a/scripts/rename.pl
+++ b/scripts/rename.pl
@@ -43,7 +43,7 @@ close $nfh or die;
 my $string = qr/"(?:\\.|[^\\"])*"/;
 my $space = qr/\s+/;
 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
 my $token = $do_strings ?         qr/$space|$idnum|$symbols/