diff options
| -rwxr-xr-x | get.pl | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -8,6 +8,8 @@ sub sanitize ($) { $s =~ s/\W/_/g; $s =~ s/[\(\)]/_/g; $s =~ s/\s+/_/g; + $s =~ s/_+$//g; + $s =~ s/^_+//g; if (length($s) == 0) { print "fn is empty"; exit(1); |
