diff options
Diffstat (limited to 'TOOLS/file2string.pl')
-rwxr-xr-x | TOOLS/file2string.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/TOOLS/file2string.pl b/TOOLS/file2string.pl index d9ad215d6d..341bb06fd6 100755 --- a/TOOLS/file2string.pl +++ b/TOOLS/file2string.pl @@ -9,8 +9,8 @@ use warnings; # the exact contents of the original file. # FIXME: why not a char array? -# treat only alphanumeric and not-" punctuation as safe -my $unsafe_chars = qr{[^][A-Za-z0-9!#%&'()*+,./:;<=>?^_{|}~ -]}; +# treat only alphanumeric and punctuations (excluding " and ?) as safe +my $unsafe_chars = qr{[^][A-Za-z0-9!#%&'()*+,./:;<=>^_{|}~ -]}; for my $file (@ARGV) { open my $fh, '<:raw', $file or next; |