diff options
Diffstat (limited to 'get.pl')
| -rwxr-xr-x | get.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -10,7 +10,7 @@ sub sanitize ($) { $s =~ s/^\s+//; $s =~ s/\s+$//; $s =~ s/\.[^.]+$//g; - $s =~ s/\W//g; + $s =~ s/[-\[\]\(\)\+\*\\\/\'\"\`\!\@\#\$\%\^\&]//g $s =~ s/\s+/_/g; if (length($s) == 0) { print "fn is empty"; |
