Improve regexes in rename.pl
diff --git a/scripts/rename.pl b/scripts/rename.pl
index 8489580..0db312b 100755
--- a/scripts/rename.pl
+++ b/scripts/rename.pl
@@ -38,10 +38,10 @@
$subst{$old} = $new;
}
-my $string = qr/".*?(?<!\\)"/;
+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/
@@ -86,7 +86,7 @@
}
if( %warnings ) {
- print "\nWarning: lines skipped due to unexpected charaacters:\n";
+ print "\nWarning: lines skipped due to unexpected characters:\n";
for my $filename (sort keys %warnings) {
print "in $filename:\n";
print for @{ $warnings{$filename} };