Browse Source

Just adding a few characters to the replace regex

spesk1 4 years ago
parent
commit
11a7f84ffc
1 changed files with 1 additions and 1 deletions
  1. 1 1
      download_archive_dot_org.pl

+ 1 - 1
download_archive_dot_org.pl

@@ -35,7 +35,7 @@ sub make_filename($) {
 	my $filename;
 	open(my $fh, ">>", \$filename);
 	foreach my $char ( split("",$name) ) {
-		if ( $char =~ m/[\s->']/ ) {
+		if ( $char =~ m/[\s->'\/\!\&\:]/ ) {
 			print $fh "";
 		} else {
 			print $fh "$char";